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EDITORIAL 


THIS MONTH'S MAGAZINE 

A major feature in this month's issue is a much extended version of the Mini Text 
Editor first published in ELBUG Vol.1 No.9 (Aug/Sept 1984). This enhanced version 
provides both right and left justification of text just like a real word processor, 
and also allows you to set up tab positions, most useful for tables and special 
layouts. 


A seldom covered aspect of the Electron is its sound capability. Following the 
article last month on sychronizing words and music, we present the first of a two 
part article that shows you how to use your Electron for playing tunes. 


In the past we have published articles on the subject of debugging programs, 
something dear to the heart of all Basic programmers. One aid to this is a 'Trace' 
facility. Our utility this month provides a vast improvement on the built in trace 
in BBC Basic and turns this little used feature into something really useful. 


We also feature this month two more excellent games for the Electron. 
Caterpillar, featured on the front cover of this issue, has some of the fastest 
action we've seen in an ELBUG game, while Patience is a very appealing implemetation 
of this popular card game, with the computer doing all the work of shuffling, 
dealing the cards and turning them over. 


COMPETITION 

Graphics is something that interests many micro owners, and we are sure the 3D 
surfaces program published in this issue will appeal to many with its impressive 
displays. Not only that, but you can readily incorporate and display a surface of 
your own choosing. In conjunction with our magazine for BBC micro owners, BEEBUG, we 
are offering a prize of £50 for the best and most interesting display sent in. Full 
details are contained with the article itself. 


NEXT ISSUE 
Remember that this is a two month issue (January/February). The next issue will 
be the March edition which should be with you by the end of February. 


Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


HINT WINNERS 

This time we have awarded one prize of £15 to D.Morgan who has contributed 
several of the hints published in this issue of ELBUG. Further hints and tips for 
the Electron are always welcome. 


MAGAZINE CASSETTE 

Once again all the programs featured in this issue of ELBUG are available on 
cassette ready to load straight into your Electron. We have also included the small 
data file created by last month's file handling programs ready to use with the 
programs included with this month's article on the same subject. 


a Se EE 
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MAKING TUNES ON THE ELECTRON (Part 1) 


Charles Francis 
Making music on your computer is not as difficult as you might 
think. Charles Francis takes baton in hand and conducts us_ through 
the world of Electron music. 


Despite its limitations the music 
synthesiser of the Electron can play 
almost any tune. This article shows 
how, even if you have no- musical 
knowledge, you can program the Electron 
to play a simple tune. You can use a 
musical score or write your own ditty. 
Tunes can be used either on their own, 
or to embellish a game. In a _ second 
article I will show how quite 
sophisticated melodies can be played. 


A A B C D B A 


Yes sir, three bags full. 
GG E 4F E  £ D 


One for the mas- ter, and one for my dame, and 
A A A GGG F F F eS, -E 


One for the 
A A A GA 


Lit- Ue boy who lives in the lane. 


BOG FE; 4 D 


Cc DPD EF G .& 
72 80 88 96 100 108 116 120 128 136 


BGD EGE 6G A 


Figure |. 


Let's start with the simple scale, 
shown above. The letters give the 
notes, and the number is the P value, 
used in the SOUND command. The complete 
range of P values is given on page 118 
of the User Guide. The scale shown here 


is the key of C_ natural (i.e. 
doh-re-mi-fah-soh-la-ti-doh which 
starts and ends with C as doh). I will 


explain how to convert to other keys 
later. The user guide states that P 
values greater than 180 are not 
accurate to the scale, but in practice 
most users will be satisfied with the 
range of notes given here for writing 
tunes. 
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Now take a simple tune. The music 
for 'Baa Baa, Black Sheep' is given in 
the diagram. This is a very useful tune 
for our purpose as it is well known and 
illustrates almost everything we need. 


PITCH 

The position of a note symbol on the 
set of lines (the stave) indicates the 
pitch of the note. You can work out the 
pitch value required to produce the 
note in a Basic program by comparing 
the position with the whole scale shown 
above and reading off the P value. 


At the beginning of the line there 
are two sharp signs, #, in the 
positions of F and C. this means that 
every time an F or aC is indicated, F# 
or C# should be played. This is done by 
adding 4 to the relevant P value - for 
F# use 76 or 124, and for C# use 56 or 
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Figure 2. 


Note 


WD S&S 


5 


104. These changes gives the key of D, 
in which D is doh. In practice you 
don't have to know which key a tune is 
written in - you simply add 4 to the P 
values of those notes indicated by a #. 


If a flat sign (b) is shown at the 
beginning of the tune then subtract 4 
from the 'P' value of every appearance 
of that note. If # or b is shown by a 
particular note in the tune then 4 is 
added to or subtracted from the 'P' 
value for that note only. The 'natural' 
sign (H) indicates that the note by 
which it appears should not be played 
sharp or flat, so 4 is not added to or 
subtracted from that appearance of the 
note. 


DURATION 

Each note in the tune has a 
particular length to give the tune its 
character. The length of the notes are 
shown by the symbol on the stave. The 
type of symbol on the stave will help 


determine the duration figure in the 
SOUND statement. 
Symbol 

Rest Name 

= whole note (semi-breve) 16 

= half note (minim) 8 

tf quarter note (crotchet) 4 
7 cighth note (quaver) 2 
J sixteenth note (semi-quaser) 1 


Relative 
Length (L%) 


——_ 
as ee 
ee 


a 


A rest is treated exactly like a 
note but no sound is actually made. 


In the arrangement of 'Baa Baa Black 
Sheep above, there is a dot after the 
note for 'dame'. This note is a quarter 
note, of relative length 4. The dot 
means that it should be held for half 
as long again, so _ that its relative 
length with the dot is 6. 


The time signature shown for 'Baa 
Baa Black Sheep is 2:4. This means 
that the tune is divided into groups of 
notes, called bars, each group having 
the same length as 2 quarter notes. In 
theory the first note of each group 
should be emphasised, but there is no 
easy way of doing this on the Electron, 
and most simple tunes survive quite 
well without. 


TEMPO 

Now it is time to choose a speed for 
the tune. This determines the D values 
used in the SOUND command. D values 
should be multiples of the relative 
lengths of notes, shown in figure 3. In 
‘Baa Baa, Black Sheep there are no 
16th notes. A lively version results by 
using D=3 for eighth notes, then D=6 
for quarter notes, D=12 for half notes 
and D=24 for whole notes. 


In practice it is also necessary to 
put gaps between the notes. If this is 
not done 'Baa Baa’ - both played on the 
same note - will sound as a single long 
note. So will ‘Black Sheep' and the 
result will be terrible. SOUND 1,4,@,1 
gives a convenient gap, and works well 
for simple tunes. The duration of the 
gap (D=1) must be subtracted from the D 
value of the note immediately preceding 
it, or the rhythm will be lost. We are 
now ready to write a program to play 
‘Baa Baa Black Sheep’. 


1% REM BAA BAA BLACK SHEEP 
20 P%=G:D3=0 

30 REPEAT 

49 SOUND 1,-15,P%,D%:SOUND 1,0,9,1 
50 READ P%,L% 

66 D%=3*(L% DIV 2)-1 
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78 UNTIL L8<@ 

88 END 

9@ REM NOTE DATA: PITCH, LENGTH 

166 DATA 60,4,60,4,88,4,88,4,96,2,104 
12,108,2,96,2,88,8 

118 DATA 80,4,80,4,76,4,76,4,68,4,68, 
4,60,8,88,4,88,2,88,2 

120 DATA 84,4,86,2,80,2,76,4,76,2,76, 
2,68,6,68,2,88,4,88,2,88,2 

130 DATA 80,2,88,2,96,2,88,2,76,4,68, 
2,68,2,60,8 

148 DATA -1,-1 


For ease of data entry, the relative 
lengths of the notes are entered as Lé 
- the note fraction (e.g. 2 for half, 4 
for quarter etc). Line 608 calculates 
the duration value, D%, and determines 
the speed at which the tune is played. 
Experiment by changing the number 3 in 
line 6@ to other values. Another 
interesting experiment is to use a gap 
length of zero, by putting SOUND 
1,0,0,@ in line 4@. If this is done, 1 
should not be subtracted from the value 
of Ds in line 68. An interesting 
percussive effect can be obtained by 
using SOUND1,-15,12,@ for the gap. 


It is very simple to change key, or 
to tune the Electron to another 
instrument by inserting: 


55 P%=P%+ (number) 
For example P%=P%-8 gives the key of C. 


WRITING YOUR OWN DITTY 

It is remarkably easy to write a 
simple ditty to embellish a game, and 
you do not need any musical knowledge, 
provided you stick to a few simple 
rules. 


1. Keep to a recognised key - a key is 
a set of notes which are known to sound 
well together. For the Electron's 
synthesiser - a single note at a_ time- 
one key is much like another. You will 
do well to keep to the key of C, shown 
in figure 1 (No sharps or flats). 


2. Keep to a time signature. Most music 
is written in ‘common time', or 4:4. 
This means that notes are grouped into 
bars, each of length equal to four 
quarter notes. You could also 
experiment with 4:4, which is waltz 
time, or jig time (depending mainly on 
speed.) But as the Electron cannot 
emphasize the first note of each bar 
the way a musician does you would be 
wise not to venture outside these two 
signatures. 


3. Use a simple rhythm, and repeat a 
similar rhythm pattern within each bar. 
It would be unwise to try a pattern in 
which the first note of each bar was 
not the longest used in the bar. 


4, Be prepared to experiment. Within a 
particular key certain combinations 
sound better than others. You will soon 
learn which to avoid. 


5. Sign off on a note that sounds well. 
You will have to experiment to find how 
to finish a particular ditty. Don't 
leave it hanging in mid-air, waiting 
for another note. 


If you keep to these rules you will 
not be a Mozart, but you will at least 
produce pleasing tunes. 


INTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


INDIRECTED DATA - D. Morgan 


If you ever find yourself in the situation of needing to read a lot of data into 


memory using indirection operators, then it 


is worthwhile knowing that the 'memory 


access' can be within the READ statement. For example: 


RESTORE:FORI%=@ TO 99 
READ 1%?memoryarea:NEXT 


where 'memoryarea' is the address of an area 


assigned to this variable. 


in memory that we have previously 
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THE UPS AND DOWNS OF 3D SURFACES 
by Q. A. Rice 


Most users of the Electron will never tire of 
the fascinating graphics displays that this 
PN machine is capable of. This program is an 


This 
will draw 
representations of three 
dimensional surfaces on the the 
screen of your Electron. The surfaces 
follow one of a set of equations. A 
choice of eight equations is included 
in the program and there is room for 
your own as well. Because of the way 
that the surfaces are drawn (from the 
back forwards) a simple form of ‘hidden 
line removal' is achieved. This makes 
the surfaces very realistic. 


program 
out 


In addition the display can be drawn 
with perspective or not, as you choose, 
and in an inverted form if you so wish. 
The whole program is menu driven and is 
both simple to use and a pleasure to 
watch. 


Type in the program carefully and 
then save it before you run it. 


The program gives you a choice of 
eight different equations for the 
surfaces. The ninth option is for your 
own equation. This should be entered in 
line 1866 with Z asa function of X% 


and Y%. The equation already included , 


in the program listing at this line 
just draws a flat surface. Try 
variations of the other equations Zs 
given in lines 1788 to 1858 to get 

the hang of using this facility. y 


PROGRAM NOTES — 


The procedure, PROCchoices, inputs 
from the user the equation number and 


the choice of whether the display is to, 
be in perspective and whether it is yy 
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1] FP. My > excellent example of the old idea of 
ifs *_®, “\ representations of distorted three 
j ‘4 “y® 4, dimensional surfaces on your computer's 
\ Votes screen. 
o4 AN \Seae4 
BRAS SC 4 
\wte f ‘ 
Ws et, to be inverted or not. Then one of the 
4525 two procedures, PROCperscalc or 
Lee PROCisocalc, is called, depending on 


which option was chosen. 


The procedure chosen, calculates all 
the points to be plotted, using the 
equation chosen (PROCfnz) and then the 
corresponding '‘'draw' procedure plots 
the series of squares onto the screen 
using the common procedure, PROCdraw. 


There are no hard and fast rules as 
to making up your own equations to 
enter as the ninth option. Just try 
whatever seems best and you will be 
pleasantly surprised by the elegant and 
vivid results. 


When you have experimented with this 
program for a while, you might like to 
try it with a more competitive flavour. 
We are offering £56 for the equation, 
to fit into this program at line 1860, 
that produces the most pleasing 
display. Send in your ideas (only one 
per person please) to the editorial 
address. Clearly mark your envelope 


yi 
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1108 REPEAT C=(GET-48):UNTIL C>@ AND C 
<1 

1118 CLS 

1128 PRINT "1. ISOMETRIC™'''"2, PE 
RSPECTIVE" 

113@ REPEAT PM=(GET-48):UNTIL PM=1 OR 
PM=2 

1148 CLS 

115@ PRINT "1. NORMAL" '''"2, INVER 
TED" 

116@ REPEAT P=(GET-48) :UNTIL P=] OR P=2 
1176 VDU 26,12 

1188 PRINT TAB(8,10)"Please wait - cal 
culating" :count$=469 


1198 ENDPROC 
12008 : 
1218 DEF PROCperscalc 
"Surface Competition’. The closing date 1220 FOR X%=1 TO 29 
for entries is 8th February 1985 so get 1238 FOR Y%=1 TO 20 
your ideas in soon. The judges' 1248 PROCfnz 
decision, as they say, will be final. 1258 S=X%-19:Z=Z-5: D=SQR (SQR (Z*Z+S*S) + 
YS*Y$) 


1268 P&(X%,Y%,1)=(S/D) *490+600 
1278 PS(X%,Y%,2) =(Z/D) *400+80G 


1@ REM PROGRAM 3D SURFACE 1288 NEXT Y%,X% 
20 REM VERSION E2.9 1298 ENDPROC 
38 REM AUTHOR Q.A.RICE 1388 : 
49 REM ELBUG JAN/FEB 1985 1318 DEF PROCpersdraw 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 1326 FOR X%=1 TO 9 
60 : 1338 FOR Yt=28 TO 2 STEP-1 
76 ON ERROR GOTO 1876 1349 PROCdraw 
80 : 135@ NEXT Y%,X% 
96 DIM P%$(20,28,2) 1368 FOR X%=19 TO 10 STEP-1 
190 REPEAT 137@ FOR Y%=20 TO 2 STEP-1 
11@ MODE 6 138@ PROCdraw 
1208 PROCchoices 1398 NEXT Y%,X% 
138 IF PM=2 THEN PROCperscalc ELSE PR 1468 ENDPROC 
OCisocalc 1410 : 
148 MODE 1:VDU 23,1,0;8;9;9; 1428 DEF PROCisocalc 
158 IF PM=2 THEN PROCpersdraw ELSE PR 1436 FOR X%=1 TO 26 
OCisodraw 1448 FOR Y%=1 TO 20 
16@ REPEAT UNTIL GET=32 1458 PROCEnz 
176 UNTIL FALSE 1460 P&(X%,Y%,1)=(X8/2+Y$/2) *6B 
188 END 
199 : 


1008 DEF PROCchoices 

101@ VDU23,1,0;9;3;0; 

1620 PRINT TAB(9,1)"HIDDEN LINE GRAPHS 
“TAB (9,2) "BLACKOUT TECHNIQUE" 

1030 PRINT TAB(1@,23)"ENTER CHOICE" 
1648 VDU 28,8,22,39,5 

1058 PRINT "1. SOR (X) *SQR(¥)"''"2. 
COS (X) *COS(Y) #1"' 

1060 PRINT "3. COS (X) *COS(Y) #2™''"4 

COS (X) *COS (Y) *DISTANCE"' 

19708 PRINT "5. COS (D) *COS (D)"''"6. 
EXP (DISTANCE) "' 

1688 PRINT "7. COS (CORNER DISTANCE)" 
veRes EXP (COS (CORNER DISTANCE) )"' 
1696 PRINT "9, YOUR OWN PREDEFINED" 


ELBUG JANUARY/FEBRUARY 1985 Volume-2 Issue 3 


9 


eS ES ELE TE Eg a a ar 
1728 DEF PROCfnz 

1736 PRINT TAB(12,12)count%:count$=cou 
nt$-1 

1748 ON C GOSUB 1780,1796,1806,1819,18 
20,1836,1848,1850, 1868 

1756 IF P=2 THEN Z=-Z 

1768 ENDPROC 

1776 : 

1786 A=X%-10:B=Y%-10:Z=SQR (ABS (A) ) *SQR 
(ABS (B) ) : RETURN 

1798 Z=EXP (SIN (X%) *SIN(Y%) *3) /4: RETURN 

1800 Z=EXP (COS (X$/2) *COS (Y$/2) *3) : RETU 
RN 

1810 A=X%-10:B=Y%-10: T=SQR (A*A+B*B) :Z= 
COS (T/1.7) *EXP (-T/5) *10: RETURN 

1826 A=X$-10:B=Y%-1 9: Z=COS (SQR (A*A+B*B 
)) *2: RETURN 


1478 PS(X%,Y%,2) =(Z+X$/2-Y$/2) *49+508 1838 A=X$-19:B=Y%3-19: Z=EXP (6-(SQR(A*A+ 
1480 NEXT Y%,X% B*B) ) ) /35: RETURN 

1498 ENDPROC 1848 Z=COS (SQR(XB*X$+YS*Y$) ) : RETURN 
1500 : 1858 Z=EXP (COS (SQR(X8*X$+YS* YS) ) *3) /4: 
1518 DEF PROCisodraw RETURN 

1529 FOR X%=19 TO 1 STEP-1 1868 Z=1:RETURN 

1536 FOR Y$=2 TO 26 1878 : 

1540 PROCdraw 1880 ON ERROR OFF 

1558 NEXT Y%,X% 1898 MODE 6 

1568 ENDPROC 1986 IF ERR<>17 REPORT: PRINT" at line 
1576 : "SERL 


1588 DEFPROCdraw 

1598 GCOLG,1 

1686 MOVE P$(X%,Y%,1) ,P&(X%, Y3, 2) 

1618 MOVE P%(X%,Y%-1,1) ,P$(X$,Y%$-1,2) 
1628 PLOT85, PS (X$+1,Y3-1,1) ,P&(X3+1,Y3 
-1,2) 

1638 MOVE P&(X$+1,Y%,1) ,P$(X8+1,Y%,2) 

1640 PLOT85,P% (X%,Y%,1) ,P3(X%,Y%,2) 

1658 GCOLG,2 

1660 DRAW P%(X%,Y$-1,1) ,P&(X%$,Y%-1, 2) 

1676 DRAW P%$(X$+1,Y$-1,1) ,PS(X8+1,Y3-1 
12) 

1680 DRAW P%(X%+1,Y%,1) ,P3(X8+1,Y%, 2) 

1698 DRAW P%$(X%,Y%,1) ,P%(X%3,Y%, 2) 

1768 ENDPROC 


1918 END 


Wie ssez 7a 
f Ww WW 


N\ 
1716 : © 
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DOUBLE USAGE - D. Morgan 

If you are really concerned with reducing the number of variables used by a 
procedure, for example when a DIM command is used, don't forget that you can assign 
a result to a variable used in the calculation. By way of example, consider: 

DIM N& N&% AS=RIGHTS (AS, 4) +LEFTS (AS, 3) 

These are both quite legitimate Basic statements. The first one will reserve N$+1 
(@..N%) bytes, and the second one performs a snall amount of string manipulation on 
AS, and then puts the result back in AS. Note that the variable on the left hand 
side is not altered until the right hand side has been FULLY evaluated; so A$ in the 
LEFTS above still refers to the original A$, and not an intermediate value. 
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EXTENDING THE MINI TEXT EDITOR 
by P. Austin 


This article shows how the "Mini Text Editor" published in ELBUG Vol.1 
No.9 can be enhanced to provide a number of the facilities available 
on commercially produced wordprocessors. 


This new version of the "Mini Text 
Editor" has several advantages over the 
old version. Firstly, and = most 
importantly, it has right justification 
which means that all your text will 


we have included a piece of text with 
the respective program lines to show 
how the editor works (see example 1). 


The text editor is in two parts, 


appear 
right hand side (like the text in this 
article). Secondly, it has user defined 
tabs so that you can design tables in 
nice neat columns. 
include 
printer page length (for 
able 
Electron). The editor 
numbering and 
keywords such as OLD and NEW which the 
old editor could not do. As an example 


ELBUG 


with a straight edge on the 


features 
length and 
those people 
to use a printer with their 
also has page 
it can print Basic 


Other 


variable page 


*~LMO2~RM35 
20 *-T105°T218 
36 *°T315°T428 
1@6 *Dear Elbug member, \CR 

110 *\T2This is the new Mini Text Edi 
tor by P.Austin that incorporates a num 
ber of features found on expensive word 
processors. \CR\CR 

126 *\TlIt has things like left and r 
ight margin settings, right justificati 
on, variable page length and line numbe 
rs. It also has user defined tabs 

13@ *which you can use as follows: \C 
R\CR 

149 *\TIName \T3Age \T4Score \CR 

150 *\TIALan \T319 \T416@ \CR\T1Dave 

\T319 \T437 \CR\TIGeoff \T364 \T417 \CR 
\CR\CR 

16@ *\TlYou can also use the variable 

s within the text. This is how to use t 
hem. \CR\CR 

176 *Today is \V1 the \V2 of \V3. \CR 
\CR 

186 *\T2Yours faithfully, \CR\CR\T3EL 
BUG MAG. \CR\CR 
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which completely replace the previous 
program. The first program is an 
initialisation routine which places a 
piece of machine code in the user 
defined character area and sets up the 
function keys. The second part is the 
main Basic program. 


SETTING UP THE PROGRAMS 
The following procedure should be 
used to set up the programs: 


Dear Elbug member, 

This is the new Mini 
Text Editor by P.Austin§ that 
incorporates a number of 
features found on expensive 
wordprocessors. 


It has things like left and 
right margin settings, right 
justification, variable page 
length and line numbers. It also 
has user defined tabs which you 
can use as follows: 


Name Age Score 

Alan 19 «166 

Dave 19 37 

Geoff 64 #17 

You can also use _ the 


variables within the text. This 
is how to use them. 


Today is Monday the 29th of 


October. 


Yours faithfully, 


ELBUG MAG. 
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1. Type in program 1 and make a 
security copy. Run program 1 and press 
Func/f@. Then press Escape and Lt 
‘'Escape/Edit' appears press Func/fl and 
go on to step 2. If this does not 
happen press Break, load your security 
copy and carefully check the assembly 
listing for any mistakes. Then try 
again. 


2. On a fresh cassette save the 
assembled machine code routine by 
typing *SAVE"PATCH" BOO DOG. 


3. Type in 
security copy. 


program 2 and make a 


USING THE PROGRAM 

The program is, in operation, 
basically similar to the original "Mini 
Text Editor". The user enters text as 
Basic lines and then edits them as_ for 
a Basic program using the cursor keys, 
Delete and Copy. The editor now allows 
the use of two kinds of embedded 
commands . 


1. Commands following a tilde (7): 

(a) ~LMnn sets the left hand margin to 
position nn (based on the absolute left 
hand margin, which is column 1). The 
number nn must contain two digits so 
the value 2, for example, must be 
entered as @2. 

(b) ~RMnn as above but for the 
right hand margin. 

(c) ~PLnn sets the number of lines 
to be printed before the printer moves 
onto a new sheet. Again the number must 
contain 2 digits. 

(a) ~SLnn sets the actual number of 
lines that can fit on the sheets of 
Paper you are using (usually 66). Again 
the number must contain 2 digits. 

(e) “PNnn sets the initial page 
number which is incremented on 
advancing to each new page. If nn is @@ 
then no page numbers are printed. Again 
the number must contain 2 digits. 

(f) “Txnn this sets the column to 
which tabulation x moves to. There are 
9 user tabs numbered 1 to 9. To define 
tab 6 to move to column 208 you would 
type in ~T62@. Again the nn part must 
contain 2 digits. 


Initially LM=01, RM=80, PL=62, SL=66, 
PN=088 (no page numbers), and all tabs 
are set to @. 


2. Commands following a backslash (\): 

(a) \Tx tabs to the position 
previously defined by “Tx. Note that it 
is impossible to tab backwards. 

(b) \Vx is variable x. There are 9 
user variables numbered 1 to 9. At 
print time it is possible to enter a 
string which will be substituted for a 
variable. For example, if you enter 
‘Electron' as variable 1 then whenever 
the program encounters \V1 in your text 
it will substitute Electron in its 
place. This allows several copies of 
the same document (or letter) to be 
produced, but each tailored to 
individual requirements. 

(c) \CR produces a carriage return 
in the print out. 

(d) \FF produces a form feed. 


Some of the backslash commands can 
be easily entered by pressing certain 
keys: 

Ctrl/V gives \V (this will not offer 
the variable number). 

Return gives \CR 

Ctrl/Return gives a Return followed by 
a*, 

Ctrl1/F gives \FF 

Tnus Ctrl V will enter \V at _ the 
current position. 


Func/f@ sets up the keys to give the 
above functions. 
Func/f1 restores all the keys to their 
normal functions. 


An asterisk should always be placed 
at the beginning of each line to stop 
tokenisation (hence the Ctrl/Return 
idea). Text line numbers should not 
exceed 9999. 


Key £9 starts the printing routine. 
The other function keys uses should be 
self-explanatory from the listing of 
program 1. 


The print routine works as follows: 


a) Press Func/f9. 

b) Enter the number of copies you 
require. 

c) Enter the number of variables you 
have in the text. I.e. if you had used 
variables 1 to 5 you would enter 5. 

d) Enter a string for each variable in 
each copy as prompted. 

e) Specify whether or not you require a 
hard (printed) copy. 
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NOTE 

The print routine considers spaces 
as word separators. This function is 
not performed by embedded commands. You 
must separate the text and a 
command by using a space (e.g ‘on the 
Electron. \CR'). 


If you wish to start a new 
paragraph use \CR\CR. To save any text 
that you have written, just type SAVE 
"filename" and press Return. Tnis will 
always save the main program with your 
text so that when you wish to re-use 
the same piece of text you need only 
LOAD the text and *LOAD the patch 


program. 


To re-use the editor type: 
*LOAD PATCH <Return> 
LOAD "filename" 
and then you are ready to use the 
editor. 


PROGRAM 1 

This program sets up both’ the 
function keys, to perform various 
tasks, and a machine code routine which 
intercepts the 'get character routine’ 
(OSRDCH) . Tne routine checks’ the 
character typed at the keyboard to see 
if it is one of a set of control 
characters which perform special tasks 
(explained later). If it is one of 
these codes the routine places a series 
of characters in the keyboard buffer by 
using OSBYTE with A=138 (see User Guide 
page 283). Once assembled, this routine 
and the function key definitions are 
loaded directly into memory, hence 


wasting no space which can be used for 
text. 


1@ REM PROGRAM MINI TEXT EDITOR 
2@ REM VERSION E@.2 
3@ REM AUTHOR P.AUSTIN 


48 REM ELBUG DECEMBER 1984 
53 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 *KEY @ ?&210=0:?&211=&C|M 
110 *KEY 1 ?&216=80:?7&211=226|!|P 
128 *KEY 2 AUTOIG !|P 
13@ *KEY 3 AUTOIG IE P 
14@ *KEY 4 LIST1@, sie 
158 *KEY 5 LIST1@9,9999|!|P 
168 *KEY 6 DELETE1@,99 
176 *KEY 7 DELETE19@,9999 
188 *KEY 9 CLEAR:DIMT3(9) ,V$(9,10):PR 
OCPR|M 
ELBUG 
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196 read=?&210+?&211*256 

20@ FOR I=@ TO 1 

210 PS=&COB 

220 [OPT3*I 

236 PHP:STX&70:STY&71:JSR read 

246 CMP#27:BEQ error :CMP#22:BEQ var:C 
MP#6:BEQ form:CMP#13:BEQ newl 

250 JMP exitl 

260 .error JMP error] 

270 .var LDY #ASC"V":JSR char:JMP exit 

28¢ .form LDY #ASC"F":JSR char:LDY #A 
SC"F":JSR char:JMP exit 

298 .newl LDA #129:LDY #255:LDX #254: 
JSR &FFF4:CPX #255:BEQ endl:LDY #ASC"'C" 
:JSR char:LDY #ASC"R":JSR char:JMP exit 

300 .endl LDY #ASC"*":JSR char:LDA #1 
3:JMP exitl 

310 .char LDA #138:LDX #8:JSR &FFF4:R 
TS 

320 .exit LDA #ASC"\" 

330 .exit] LDX&70:LDY&71:PLP 

348 RTS 

358 .errorl LDX&7@:LDY&71:PLP 

368 BRK 

378 ]:SP%=CHRS19+CHRS$19+"Escape/Exit" 
+CHRSG 

380 NEXT 


PROGRAM 2 

This is the main Basic program 
which deals with the text formatting. 
The procedures used in this program are 
outlined below with a brief description 
of their purpose. 


PROCPR is the main procedure which 
calls all the others and gets the 
values of various printing parameters 
from the user. 


PROCCP advances along the text stored 
at line 10 onwards calling various 
other routines to print it, insert 
variables, right hand justify etc. The 
vbU1,12 causes a ‘form feed' on the 


printer. 


PROCLM is used to give values to 
variables used by the program which are 
defined within the text being printed. 


PROCCN implements the embedded 
control strings (placed in the text via 
the keyboard buffer by PROGRAM 1 ). 


PROCWD places words taken from the 
text into the print string LS. 


PROCLN does two jobs. Firstly it 
performs right hand justification by 


Volume-2 Issue 3 


13 


7S ee 2 ee ee a 
inserting spaces between words until 1041@ ENDPROC 

the line is the right length. Secondly 16415 : 

it prints the string LS. 10426 DEF PROCLM 


ELBUG 


19008 * £ 

10626 LOCAL V3,C%,N%,H3,1%,J%,QS 

16030 PRINT 

16048 REPEAT VDU12: INPUTTAB(@,2) "How ma 
ny copies ",N$:UNTIL N3>d 

19858 PRINT 

10860 REPEAT PRINTTAB(19,4)SPC(2@) : INPU 
TTAB(@,4) "How many variables ",V%:UNTIL 
V3>=0 AND V3<=9 

10676 IF V%>@ THEN FOR I%=1 TO N%:PRINT 
In copy ";1$:FOR J$=1 TO V%:PRINT"Vari 
able ";J%;" ";: INPUTVS(J%,1%) :NEXT: NEXT 
10888 PRINT 

18998 REPEAT VDU12: INPUTTAB(@,4) "Hard c 

opy (Y/N) ",QS:UNTIL QS="Y" OR QS="N":V 
DU12 

10100 IF QS="Y" THEN H%=TRUE 

19116 IF H& THEN VDU2:*FxX6 10 

16126 FOR C%=1 TO N& 

10138 PROCCP 

10140 NEXT 

19158 VDU3 

19160 
16165 : 

16178 DEF PROCCP 

10180 LOCAL LM%,RM%,PL%,SL%,P%,Z%,LC$,C 
R$, EL%,ET%,L%,PN&,WS,LS$ 

10198 LM$=1 : RM%=8G: PL3=62: SL3=66 

162066 FOR P$=1 TO 9:T%(P%) =P3*8:NEXT 
10210 P%=PAGE+4 

10228 REPEAT 

10230 EL3=FALSE:CR%=FALSE: T%=1:LS="" 
1624@ REPEAT 

10258 LC8=TRUE 

16266 P$=P$+1:IF ?P%=13 THEN P%=P$+5 
16270 IF ?P$=96 THEN LC$=FALSE:ET$=TRUE 
16280 IF ?P%=126 THEN PROCLM:LC%=FALSE 
10290 IF ?P%=92 THEN PROCCN:LC$=FALSE 
10360 IF ?P$=32 THEN PROCWD:LC%=FALSE:Z 

$=P%:wS="" 

10318 IF LC% THEN WS=WS+CHRS (?P%) 

10320 UNTIL CR% OR ELS OR ETS 

10338 PROCLN 

10340 L%=L$+1 

10350 IF L$>=PL$ AND PN$>@ THEN PRINT'S 

TRINGS (LM%+ (RM$-LM$) DIV 2-3," ");"PAGE 
2";PNS: PNS=PNS+1 

10368 IF L$>=PL$ AND H$ THEN VDU1,12 
10370 IF L%>=PL% THEN L3=@ 

10388 UNTIL ETS 

19396 IF PN%>@ THEN REPEAT PRINT:VDU1,1 

@:L3=L3+1:UNTIL L3>=PL%: PRINTSTRINGS (LM 
$+ (RMZ-LM%) DIV 2-3," ");"PAGE:";PNS 
19468 IF H% THEN VDU1,12 
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1043G LOCAL C$,x%,Y% 

10440 CS=CHRS (P$?1) +CHRS (P$?2) :X$=VAL (CH 
R$ (P$?2) ) :Y$=VAL (CHRS (P$?3) +CHRS (P$?4) ) 
10450 IF CS$="LM" AND Y%>@ AND Y$<RM% TH 
EN LM$=Y 

10460 IF CS="RM" AND Y8<81 AND Y%>LM% T 
HEN RM$=Y$ 

10476 IF CS="SL" AND Y%>@ THEN SL$=Y$:1 
F H% THEN VDU1,27,1,67,1,SL% 

10480 IF CS="PL" AND Y%>@ AND Y$<SL$-1 
THEN PL$=Y$ 

10498 IF CS="PN" AND Y$>=@ THEN PNS=Y% 
10500 IF LEFTS(CS,1)="T" AND X%>@ AND Y 
%>@ AND Y%$<8G THEN T%(X%)=Y% 

10518 PS=P$+4 

18528 ENDPROC 

16525 : 

16530 DEF PROCCN 

10548 LOCAL C$,X$ 

10556 CS=CHRS (P%?1) +CHRS (P$?2) :X$=VAL(C 
HRS (P$?2) ) 

10568 IF CS="CR" THEN CR$=TRUE 

10570 IF CS$="FE" AND PN3>@ THEN REPEAT 
PRINT: VDU1,10:L$=L3+1:UNTIL L$>=PL$: PRI 
NTSTRINGS (LM$+ (RM$-LM$) DIV 2-3," ");"p 
AGE:";PN$: PNS=PNS+1 

16589 IF CS="FE" AND H% THEN VDU1,12 
10590 IF CS="FE" THEN L$=0 

16668 IF CS="ST" THEN BT$=FALSE 

19610 IF LEFTS$(CS,1)="V" AND X%>@ THEN 
WS=WS+VS (X%,CS) 

10636 IF LEFTS(CS,1)="T" AND X%>@ THEN 
T$=T% (X$) : LS=LEFTS (LS+STRINGS (80,"_") ,T 


10640 P%=PS+2 

16658 ENDPROC 

16655 : 

18668 DEF PROCWD 

IF LEN(LS$)+LEN(WS)+1>RM$-LM% THEN 
P%=Z%: EL$=TRUE: ENDPROC 

19686 LS=LS+7S+" " 

16698 ENDPROC 


16768 DEF PROCLN 

16718 LOCAL 1%,S% 

IF CR%$ OR ET% GOTO 10780 
I$=T%:S%=LEN (LS) 

16740 REPEAT 

I$=I$+1:IF I$=S$ THEN IS=TS+] 
16760 IF MIDS(LS,1%,1)="_" AND S%<RM$-L 
M% THEN LS=LEFTS (L$, 1%) +MIDS (LS, 1%) : I$= 
1$+1:S$=S$+1 

16776 UNTIL S%=RM$-LM$ 

10780 PRINTSTRINGS (LM$-1,"_ ") ;LS 
16860 ENDPROC 
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THE LATEST GAMES REVIEWED 


Title : Jet Power Jack 
Supplier : Micro Power 


Price : £6.95 
Reviewer : Geoff Bains 
Rating : **** 


unfortunate habit of 


Jack has the 
being trapped in a series of ‘spac: 
garages'. There he has to collect fuel 
pods from one side of the garage and 
deliver them to the waiting space ships 
at the other side. 


To help him out in his job, Jack has 
a jet power pack on his back (okay, so 
jets don't work in space, but Rocket 
Power Jack doesn't sound as good) with 
which he hops around the cavernous 
garage. You control his left and right 
movement and the jet thrust. 


All this would be easy were it not 
for the variety of nasty things the 
owners of the garage leave lying around 
in the middle. 


There are five screens to Jet Power 
Jack, featuring a variety of garages. 
Some have a series of levels that Jack 
can use aS stepping stones in his quest 
and some have large areas of empty 
space with only the odd monster sitting 
in an inconvenient position in the 
middle. 


The game does not have the most 
thrilling of plots but once you're into 


it, you're = stuck. It is very 
frustrating, not all that easy, and 
totally captivating. As such, it is 


well worth the money. The graphics are 
good, the movement smooth and quick, 
and the controls responsive. Great. 


: ER*BERT 

: Microbyte 
Price : £4.95 
Reviewer : Geoff Bains 
Rating 3 xkK 


Title 
Supplier 


ER*BERT is a version of the arcade 
game, Q*BERT. ER*BERT lives in a 
giants' causeway of cubes stacked up 
into various shapes. His aim in life is 
to turn the cubes to another colour. 
This he does by hopping onto each of 
them once or twice. Of course he musn't 
jump off the edge of the stack or he'll 
meet a grisly death. 


Chasing ER*BERT around his domain 
are bouncing balls, a gorilla amd a 
snake. Contact with these is also 
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deadly to ER*B. The gorilla gets 
particularly nasty if you hop on his 
banana that lies around. The trick is 
to lure them to their death by taunting 
them on the edge of the cube stack. All 
the other gimmicks are included in this 
Electron version: helicopter hats for 
those last minute getaways, rotating 
transporter discs, and so on. 


This version of the game is well 
implemented. There seems to be a _ lack 
of response of the control keys which 
can make you jump poor ER*BERT over the 
edge when he was meant to do a 
breathtaking about-turn just before the 


precipice. However otherwise the 
graphics and sound are well up to 
scratch. 


My only complaint is that the game 
itself is not really very interesting. 
Still, that is largely a matter of 
opinion. If you like the arcade version 
(if you can still find it - there seem 
to be few Q*BERTs around these days 


which only goes to show others are not 
all that chuffed with the game either) 
then you will not be disappointed 
ER*BERT. 


with 


Title : Eddie Kidd Jump Challenge 
Supplier : Martech 
Price 3 £7.95 

Reviewer : Kevin Kilmoore 

Rating > xe 


The roar of the motorcycle beneath 
you, the rush of wind past your head, 
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the cheers of 
things Eddie Kidd can 


the crowd; all these 
savour when he 
performs his death-defying stunts. 
Unfortunately you can't quite get that 
same atmosphere sitting in front of a 
TV set frantically pushing keys on your 
Electron. 


In the Eddie Kidd Jump Challenge you 
have to jump Eddie over a variety of 
obstacles. You start with a BMX bike 
over a few barrels and progress on from 
there to a motorbike that can leap 
buses. 


The cassette insert claims that this 


game will not only capture the 
excitement of a real stunt but test 
your skill at such activities too. 


Well, I've never jumped my bike over 
any cars, but even taking the run up is 
not too true to life in my judgement. 
Does Eddie Kidd really use an 
automatic? What happened to the clutch? 


Aside from this lack of realism, the 
Eddie Kidd Jump Challenge is still good 
fun. The controls (nine keys for the 
motorbike) take some mastering but once 
done, sailing over the cars is great 
fun. The Electron struggles at times to 
maintain the speed needed for the 
complex graphics and this version is 
not as impressive as those for the BBC 
micro and CBM 64. 


Why the '‘'challenge'? Martech are 
offering a prize of a TV, a micro, or, 
more suitably, a BMX bike for the best 
jumps made in two, two monthly periods. 
I've a suspicion that even if Eddie was 
eligible for entry, he wouldn't win. & 
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Pe a a a eh a ra 
IMPROVED TRACE FACILITY 


An aid to debugging programs 
by Martin Dale 


This month we present a useful utility that extends the program 
debugging '‘trace' facility. This routine, entirely written in 
machine code, will make your Basic programs much easier to get 
working. 


Your Electron has a_ powerful 
i i t “sce r 2 sess 2 | 
degugging tool in the shape of the = giao tise ee ae a 


built in trace facility. If you are not 
already familiar with this facit of 
Basic you would do well to read page 
191 of the User Guide and experiment a 
little with it. In a nutshell, the 
command TRACE ON switches on the Basic 
trace. This causes each program line 
number to be printed on the screen at 
the current cursor position as_ the 
program line is executed, so that you 
can follow the progress of your program 
as it is running. The trace can be 
switched on in immediate mode or from 
within a program. It can be turned off 
using TRACE OFF. 


left hand corner of the screen (or 


The trouble with the built-in trace current text window), and you have the 
facility is that it has a tendency to facility to pause between each line to 
fill your screen with line numbers, allow you time to study the current 
totally obliterating whatever the position in the program. 
program is producing. You can see where 
you are in the program but you can't To use the program, type it in very 
see what the program is doing. Try carefully and then save it to tape in 
running a program like the 3D Surfaces case there are any errors in the 
program in this issue, with the trace machine code. Once run, the extended 
on, to see this effect. This machine trace facility will initialise itself, 
code routine inproves the trace and you may then use it as you wish. 
facility to make it much more useful. Note that it will be lost on pressing 

Break, and that it shouldn't be 

There are two basic improvements initialised twice or the machine will 
implemented in this extension: the line hang. As with the standard Basic trace, 
numbers are printed only in the top you use TRACE ON to enable it, and 


TRACE OFF to disable it. 


HOW IT WORKS 

The utility works by intercepting 
the operating system routine OSWRCH, 
which writes a character, and 
performing three tests to check for the 
start of printing of the current line 
number. These tests are: is the trace 
flag set, is this character not within 
a VDU sequence, and is it the "[" 
character (the trace facility prints 
line numbers within these square 
brackets)? If all of these tests are 
true, then the extended trace routines 
are called. 
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a SS SS a SS Se 
13@ [OPT pass 
-newvec 


The current cursor position is first 
stored away, as are flags indicating 
whether the text and graphics cursors 
are joined and that the trace routine 
is active. Next, the cursor is 
positioned at the top left of the 
screen (more accurately, the current 
text window). Once this is done, the 
routine exits back to Basic, allowing 
the normal trace routines to print the 
current line number. 


When the printing of the current 
line number is complete, the trace 
routine is again entered (this is 
triggered by the trailing space after 
the line number) and a delay is 
started. The simple loop will normally 
wait for 2 seconds, but can be made to 
terminate quicker by the press of a 
key, or immediately by a press of the 
Shift key. This is designed to allow 
the program to be stepped through at a 
variety of speeds, allowing correct 
sections to be passed over very quickly 
whilst up to 2 seconds can be spent on 
any lines which seem worthy of more 
detailed study. 


Once the delay has finished, the 
cursor is restored to its original 
position, the trace active flag is 
cleared, and the text and graphic 
cursor are re-joined if necessary. The 
routine then exits, and the user's 
program carries on running as normal. 


KNOWN LIMITATION 

There is a known limitation in the 
current version of this program: any 
attempt to print a "(" as a single 
character (ie not as part of a graphics 
sequence) whilst tracing will cause the 
program to respond un-predictably. 
There is no easy way to cure this, but 
knowing that it exists should help you 


to avoid too many problems. 


1@ REM PROGRAM TRACER 
20 REM VERSION E@.@1 
3@ REM AUTHOR MARTIN DALE 


46 REM ELBUG JAN/FEB 1985 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 


108 osbyte=&FFF4 
118 FOR pass=9 TO 2 STEP 2 
126 P%=&8D8G 


148 
158 
166 
176 


PHA 
LDA 
BNE 
PLA 
JMP 


&26 
trcon 


printchar 


-exit 


LDX 
LDY 


temp 
temp+1 


-printchar 


JMP 


(oldvec) 


.trcon 


STX 


JSR 


temp 
temp+1 
#&DA 
#0 
#&EFF 
osbyte 


exit 
trcflg 
midtre 


#ASC ( " [ ") 
exit2 
trcflg 
#&86 
osbyte 
vVpos 

pos 

#&75 
osbyte 


#32 
ntgraphic 
trcflg+1 
#4 
printchar 


-ntgraphic 


LDA 
JSR 
LDA 
BNE 


#38 

printchar 
#ASC ( " (") 
printchar 


emidtrce 


BEQ 


#ASC(" ") 
exit2 
printchar 
trceflg 
#31 
printchar 
pos 

pr intchar 
vpos 
printchar 
trceflg+l 
ntgrphic 


\ Get trace flag 
\ Branch if <> @ 


\ Restore 
\ registers 


\ Print character 
\ Save registers 


\ Is it in the 
\ middle of a 
\ VDU command? 


\ Return if yes 
\ In trace output? 
\ Yes, branch 


\ Start of trace? 
\ No, return 

\ Set trace flag 
\ Save cursor 

\ position 


\ Is VDU 5 set? 


\ No, branch 
\ Yes, set flag 
\ vou 4 


\ Move cursor to 
\ top left corner 
\ Print left "(" 
\ and return 


\ Finished ? 

\ No, return 

\ Clear ")" 

\ Restore flag 
\ Restore cursor 


\ Cursors joined? 
\ No, branch 
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73@ LDA #5 \ Rejoin cursors 926 JSR osbyte \ waiting? 

748 JSR printchar 938 BCC exitdelay \ Yes, exit 

758 DEC trceflg+l \ Clear VDU 5 flag 949 DEC delay \ No, any more 
768 .ntgrphic 958 BNE loopdelay \ ticks? 

778 LOA #21 \ Flush keyboard 960 .exitdelay \ exit delay 
78@ LDX #9 \ buffer 978 RTS 

798 JSR osbyte 989 .delay \ delay byte 

860 LDA #200 \ 208 ticks 996 NOP 

818 STA delay \ 1688 | 

820 .loopdelay X 1818 trcflg=Ps 

836 LDA #129 \ Shift key 1028 temp=P%+2 

848 LDX #255 \ pressed? 1038 pos=P%$+4:vpos=P$+5 

850 LDY #255 Xi 1646 oldvec=P%+6 

869 JSR osbyte \ 1650 NEXT 

870 CPY #255 x 1969 !P%=0:! (P%+4) =0 

880 BEQ exitdelay \ Yes, exit 1078 ?0ldvec=?&2GE: ? (oldvect1) =?&20F 
898 LDA #129 \ No, wait a 1080 ?&20E=newvec MOD 256 

98 LOX #1 \ tick. Key 1698 ?&20F=newvec DIV 256 

918 LDY #0 \ pressed whilst 1186 END & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


WHICH DAY IS IT? 

The short function below allows the day of the week to be calculated from a date 
entered. Note that the format required by the code below is fairly exacting; the 
format being DD:MM:YYYY, where DD is the two digit date (with a zero preceding if 
necessary), MM likewise the month and YYYY the year. The ':' may be replaced by most 
characters, but it is best to standardise on just one separator. 

100 DIMday$ (7) :FORA$=@TO7: READday$ (A%) : NEXT:CLS: PRINT 

200 REPEAT 
308 INPUT LINE"date:"AS:D%=VALAS:M$=VALRIGHTS (AS, 7) : YS=VALRIGHTS (AS, 4) -1688 
400 PRINTdayS (FNday) "DAY" 
500 UNTIL® 
2068 DATA NO ,SUN,MON, TUES ,WEDNES , THURS, FRI, SATUR 
3008 DEFFNday: L$= (Y8MOD40RY MOD 1 @G=GANDY 3MOD40@) >G: yS=Y$-1 :mB=M3-1 2 = ( (YS+ySDIV4-y% 
DIV100+y%DI1V4GG+31 *m3- (MSDIV2) -— (m3=8) -— (m3=1G) + (mMB>1) + (LSANDm3>1 ) +D$+6) MOD7) +1 AND (DS 
>@ANDDS< (32- (mSMOD7MOD2) + (m8=1) + (LSANDm3=1 ) ) ANDM$>@ANDM$<1 3ANDY$>@) @ 


ANOTHER BUG IN BASIC? - C.T.Marshall 

Users of the advanced maths functions of Basic may be interested to know of the 
presence of a bug in the X*Y function. Attempts to use this function (seemingly 
quite legitimately) will result in a 'Log range' error if Y lies between (but not 
including) zero and one and X is zero (but not otherwise). Errors can be avoided if 
a test is made to see if X is @ before attempting this operation. SQR(@) functions 
quite correctly though (this being equivalent to @*.5). ® 


ANOTHER ODDITY IN BASIC - D. Morgan 

It is quite well known that Basic does not allow you to use a variable before it 
has been defined, but there is an exception to this rule; if you define a variable 
in terms of itself, when it is not already defined, then it will equate itself to 
zero in order to evaluate the expression in question. For example: 

A=A+3 
will cause A to be set equal to 3, even if A has not previously been assigned a 


value. & 
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TWO ELECTRON GRAPHICS PACKAGES 


Reviewed by Mike Siggins 


Product : Electronic Colouring Book. 


Price : £9.95 (inc. VAT) 
Supplier: Addison-Wesley Software, 
Finchampstead Road, 
Wokingham, 
Berkshire RG11 2NZ 


Product : Picture Maker. 
Price : £9.95 (inc. VAT) 
Supplier: Acornsoft, 
4a Market Hill, 
Cambridge, CB2 3NJ 


These two. recent releases both 
tackle graphics tasks on the Electron 
but are very different in their 
application and scope. 


ELECTRONIC COLOURING BOOK 

The Electronic Colouring Book is a 
clever piece of programming, enabling 
the user to colour in outline pictures 
using a palette of thirty-five colours, 
achieved by combining existing colours. 
The program loads well and quickly, and 
presents a mode 2 screen with the 
palette displayed on the right hand 
side. The background can be changed 
between either black or white. Cursor 
movement can be effected by either 
keyboard commands or by joystick, 
either one offering good control. 


The user is now free to select a 
picture for colouring. There are some 
eighteen pictures supplied on the tape, 
four of which are duplicated in both 
blank and = painted versions. The 
pictures are of a good standard 
considering the limitations of mode 2 
resolution. It is possible to create 
your own pictures and save these for 
colouring but the drawing routine is 
limited for anything more complex than 
straight lines. I suspect that the 
supplied pictures were created on a 
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graphics pad rather than with the 
program's routines. 


Having selected and loaded a 
picture, the meat of the program is in 
the painting. This is nicely done with 
a colour being chosen by 'dipping' the 
cursor into the palette and then moving 
it to the section to be filled. The 
filling is reasonably quick and 
accurate. One also has the option to 
correct a painted section by re-filling 
in the background colour. The completed 
picture can be saved to tape for later 
display. A nice option is the facility 
to change the screen palette by using 
the number keys. By entering values, 
the palette is cycled by use of the VDU 
19 command to give even more shades. 
This is best carried out slowly as a 
picture can get in quite a mess, though 
default colours are restored easily. 


The documentation supplied is brief 
but seems to cover all the points 
adequately. It also includes 
representations of the pictures 
supplied on the cassette. 


The program does have some faults as 
it stands. It is possible to clear the 
screen at any time using the command 
'‘c', but this is accepted without any 
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kind of check. The proximity to the 
frequently used 'D', for delete, 
aggravates the problem. Another problem 
is the colour shades themselves. The 
colours are mixed in such a way as to 
cause 'waves' on a domestic television. 
The results are excellent on a colour 
monitor but for the majority of users, 
the screen display will be of a lower 
standard. 


PICTURE MAKER 

The Picture Maker program from 
Acornsoft is entirely different in 
scope. It is a utility which enables 
the creation of complex screen 
displays. The pictures and designs 
possible are very impressive as proved 
by the demonstration files supplied. It 
is supplied in the usual Acorn card box 
with a comprehensive manual. 


The Picture Maker operates at two 
levels, Catalogue and Picture. The 
former takes care of housekeeping tasks 
including filing, naming, free memory 
and asterisk commands. The latter is 
concerned with actual creation of the 
‘units' around which the program is 
based. A unit can be anything from a 
single line up to a_ full screen 
picture. The program enables the user 
to draw and then manipulate units into 
other pictures, as each unit can be 
saved in its own right. This removes 
the need present in most graphics 
packages to save pictures as a whole. 
Now, the user can select elements as 
required from cassette and combine them 
to create new designs. 


The Picture level includes a wide 
range of facilities including single 
points, full and dotted lines, 
triangles, arcs, sectors, circles, fill 
and text. These are all well 
implemented with the possibility to 
correct any mistakes. Although the 
delete command again fails to ask for 
confirmation, the effect here is to 
delete only the last element drawn, not 
the whole picture. It is only possible 
to draw in either mode 4 or 5 due to 
the size of the program. This limits 
the colours provided for drawing but by 
using another supplied program, 


described later, all sixteen colours 
are available. 


Shapes can be drawn and then filled 
with relative ease. Sone very 
impressive shapes can be built up and 
then shrunk, expanded and distorted at 
will. The potential is enormous, 
limited only by the creative skills of 
the user. Text can be drawn at any 
size, angle or shape and slanted to 
give italic characters. The standard of 
text is not brilliant, as the larger 
sizes tend to emphasize the jagged 
edges of the normal fonts. 
Nevertheless, the scope is there. 


Picture Maker does not stop. at 
creating units and pictures. Further 
programs are supplied to enable the 
units to be displayed in different 
modes and colours and to use the units 
in your own programs. The Showpic 
Program enables a picture saved from 
Drawpic to be displayed in higher 
resolution or with more colours. Full 
instructions are provided for this, the 
only restriction being that large units 
from Drawpic may not fit into the 20k 
graphic modes. Datapic and Picdata deal 
with transferring pictures into data 
for incorporating in basic programs and 
then producing pictures from such data. 


The documentation is very well 
written and gives a comprehensive guide 
to all the facilities available. It 
also has a clear tutorial section for 
each feature which makes this package, 
which is complex in places, easy to 
learn and use. 


The two programs perform very 
different functions. The Colouring Book 
is well done but, I feel, will not 
sustain the continued interest that 
Picture Maker provides. That said, many 
users, especially younger ones, will 
find it good fun. The colours are very 
impressive and the program works well. 
Picture Maker is a fine piece of work, 
providing some very complex and 
sophisticated features with the minimum 
of fuss. This program is certainly 
worth the money and is recommended. & 
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PATIENCE 


thy ivan 
by M. C. Ironmonger y on 
aa 4 


When you get bored with space invaders and 
constant zapping noises, why not turn your 
to playing cards. Patience is an ideal choice, as no opponent 


is required, and the computer takes all the effort out of shuffling and 


dealing the cards. 


In this popular version of patience, 
you try to make four complete piles of 
cards (one of each suit starting with 
the ace and ending with the king). 


The Electron will deal the cards in 
the usual formation. This consists of 
seven columns of cards being dealt face 
down; the first column will have one 
card, the second will have two cards 
etc, all the way up to the seventh 
column which has seven cards. The last 
card in each column will be dealt face 
upwards. 


You are then given the rest of the 
pack turned face down (called the 
stack), and you turn the cards over 
three at a time. Initially, most of the 
play takes place with the seven columns 
of cards where the object is to build 
up alternating red/black sequences of 
cards in descending order. Thus a five 
of hearts from one column may be placed 
on a six of clubs in another, and the 
five and six together could then be 
placed, say, on a seven of diamonds. 
All the face up cards in any column are 
moved together determined by the 
highest value card in that set. If you 
have an empty column, then the only 
card (or set of cards) you are allowed 
to place there is one where the king is 
the highest card. 


If you turn up an ace, you should 
place this on the appropriate symbol at 
the bottom right of the screen, and 
then start to build up these piles of 
cards in suits in the usual card 
sequence (ace, 2, 3, 4 etc). Cards can 
be moved to these piles directly from 
the stack or from the bottom card of 
any of the seven columns above. 


To move cards around, you must use 
the J and K keys which move the arrow 
pointer displayed on the screen. First 
move the arrow to the card you wish to 
move, then press the spacebar. Once 
that is done you must then move the 
arrow above the destination pile or 
column for that card and then press the 
spacebar again. 


If you are defeated and fail to 
complete a game (more than likely), 
then press the Escape key to start a 
new game. 


The instructions may sound 
complicated, but it is suprising how 
quickly you can learn to play this 
simple but addictive game. 


Although we here at ELBUG strive to 
publish well written amd structured 
programs, we felt that this program was 
worth publishing, despite its lack of 
clarity and good structure, because it 
was such a good card game. Please take 
care when typing the program into your 
Electron as any mistakes will be that 
much harder to find and correct. 


1@ REM PROGRAM PATIENCE 

20 REM VERSION E1.4 

36 REM AUTHOR M.C. Ironmonger 

49 REM ELBUG JAN/FEB 1985 

58 REM PROGRAM SUBJECT TO COPYRIGHT 


1@@ MODE] 

118 VDU23,1,9;9;0;9; 

126 ON ERROR GOTO 2508 
13@ DIMAS (12) ,Z2(51) ,C$(14) 
1498 PROCcards 

158 PROCtitle 
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168 PROCshuffle 

178 PROCdeal 

180 FORZ=1T04 

198 PROCdefine(Z) 

200 PRINTTAB(Z*5+9, 28) CHRS (255) 

210 NEXT 

228 H=9997: I=0:J=-1 

230 PRINTTAB (4,0) CHRS (254) 

248 PROCget 

258 I=H MOD13 

260 IF AS<>" " THEN 360 

276 IF I=7 THEN 1520 

280 IF J=-1 THEN PROCfrom ELSE PROCto 

298 COLOUR1390 

300 IF AS(9)+A$(1@)+A$(11)+A$(12)<>"2 
5385164" THEN 360 

318 COLOURG 

320 PRINTTAB(2,5) "Well done, press an 
y key to continue" 

338 A=GET 

348 CLEAR 

358 RUN 

368 COLOURG 

370 PRINTTAB (1*5+4+36* (I>6)-(1>8) ,-23 
* (I>6) ) CHRS (254) 

380 GOTO249 

390 : 

1006 DEF PROCfrom 

1019 IF I<7 THEN 1070 

1920 IF I>8 THEN J=@:GOTO 1576 

1038 IF K=@ THEN 1670 

1049 IF K=L THEN 16706 

1050 J=I:JS="+"+STRS(Z(L)):GOTO 1080 
1668 : 

1076 J=I:JS=LEFTS(AS$(J) , INSTR(AS(J) ,"- 
")-1) 

1888 ENDPROC 

1698 : 

1188 DEF PROCto 

111@ IF I>8 THEN J=@8:GOTO 1576 

1120 IF I>6 THEN 1670 

113@ A=VAL(MID$ (AS (I) ,2,2)) 

1148 B=VAL (RIGHTS (J$,2) ) 
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1158 IF A=@ AND B MOD13=12 THEN 1170 

1160 IF A-B<>14 AND A-B<>-12 AND A-B<> 
-38 AND A-B<>4@ THEN 1670 

1178 D=LEN(AS (I) ) /3+2 

1188 PROCcard (1*5+2,D,VAL (RIGHTS (JS, 2) 
)) 

1198 AS(I)=RIGHTS (JS, 3)+A$(I) 

1268 JS=LEFTS (J$, LEN (J$)-3) 

1210 IF JS<>"" THEN 1170 

1220 IF J=8 THEN 1340 

123@ AS(J)="+"+RIGHTS (AS (J) ,LEN(AS (J) ) 
-INSTR(AS$ (J) ,"=")) 

124@ A=LEN (AS (J) ) /3+8 

1258 A=LEN(AS (J) ) /3+8 

1260 IF LEFTS(AS(J),2)="++" THEN A=1:A 
$(J)="":GOTO128¢ 

1276 PROCcard (J*5+2,A-7, VAL (LEFTS (AS (J 
),3))) 

1288 COLOUR13@ 

1296 FOR B=A 1023 

1308 PRINTTAB (J*5+2,B) SPC(5) 

1310 NEXT 

1320 J=-1 

1338 GOTO 1736 

1348 J=-1:K=K-1 

1350 IF K=0 THEN 1479 

136@ IF K<>L THEN 1420 

1378 COLOUR130 

1380 FOR A=24 TO 31 

1398 PRINTTAB(6,A)SPC(5); 

1400 NEXT 

1418 GOTO 1736 

1426 FOR A=L TO K 

1430 2(A)=2(At+1) 

1440 NEXT 

1450 J=-1:L=L+3 

1466 GOTO 1520 

1476 COLOUR130 

1489 FOR A=24 TO 31 

1496 PRINTTAB(1,A)SPC(19); 

1500 NEXT 

1518 GOTO 1738 

1528 L=L-3 

153@ IF L=-3 THEN L=K:GOTO 1520 

1549 IF L<@ THEN L=@ 

155@ PROCcard (6,25,Z(L) ) 

1568 J=-1:GOTO 290 

1570 IF VAL(AS(J))=VAL(AS(I))+1 THEN 1 
629 

1580 J=J3+1 

1590 IF J<8 THEN 1570 

1600 IF VAL(AS(I))+1<>Z(L) OR K=L THEN 


1618 AS(J)="+"+STRS (Z(L) ) 
1620 IF I-8<>VAL(AS(J)) DIV 13 THEN 16 


163@ AS$(1I)=MIDS(AS$(J) ,2,2) 
164@ PROCcard (1I*5-33,25,VAL(A$(I))) 
1650 IF J=8 THEN 1349 
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1664 AS(J)="+"+RIGHTS (A$ (J) , LEN(AS (J) ) 
-4):GOTO 1258 

1678 PRINTTAB(13,0)"That won't go" 

1688 SOUND1,-9,15,7 

1690 FOR A=1T0O1580 

1706 NEXT 


1718 PRINTTAB (13,8) SPC(13) 

1720 J=-1 

1738 ENDPROC 

1746 : 

1758 DEF PROCcard (A,B,C) 

1768 COLOUR] 31 

1778 IF C=@ COLOUR2:GOTO 1808 

1788 PROCdefine(C DIV13) 

1798 C=C MOD 13+1 

1808 PRINTTAB(A,B)C$(C); 

181@ MOVE A*32,1024-B*32 

1828 PLOT3,156,9 

1836 PLOT3,@,-224 

1848 PLOT3,-156,9 

1858 PLOT3,6,224 

1868 ENDPROC 

1876 : 

1888 DEF PROCdefine(z) 

1899 IF z=1 COLOUR]: VDU23,255,8,28,62, 
127,62,28,8; ELSE IF z=2 COLOUR@:VDU23, 
255,28,28,1087,127,127,197,28; 

1986 IF z=3 COLOUR]: VDU23,255,54,127,1 
27,127,62,28,8; ELSE IF z=4 COLOUR@:VDU 
23,255,8,28,62,127,127,107,28; 

191@ ENDPROC 

1920 : 

1938 DEF PROCcards 

1948 AS=CHRS$19+STRINGS (5,CHRS$8) :FS=CHR 
$255 

1958 BS=STRINGS (5,CHR$32) +A$ 

1968 CS=STRINGS (2,CHR$32) +E $+STRINGS (2 
,»CHR$32) +A$ 

1978 MS=CHR$32 

1988 DS=MS+FS+MS+ES+MS+AS 

1999 ES=MS+FS+FS+PS+MS+AS 

2008 CS(B)=STRINGS (6,"SSSSS"+AS) +"S$$$ 
g" 
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2018 GS=STRINGS (4,CHRS$32) +A$:G2S=STRIN 
GS (4,CHR$32) 

2028 HS=BS+CS: IS=D$+BS: JS=D$+G2S$: KS=DS 
+DS+DS$+D$+DS 

2838 CS(1)="A"+GS+B$+H$+BS$+B$+G2S+"A" 

2048 CS (2) ="2"+G$+C$+B$+BS+H$+G2$+"2" 

20508 C$(3)="3"+GS+CS+H$+H$+G2$+"3" 

2068 CS (4) ="4"+GS+IS+BS+BS+JS+"4" 

2878 CS$(5)="5"+GS+IS+C$+BS+JS+"5" 

2088 CS (6) ="6"+GS+IS+IS+IS+"6" 

2698 C$(7)="7"+G$+DStC$+1$tI$+"7" 

2108 CS$(8)="8"+GS+DS+CS$+DS+C$+JS+"8" 

2118 CS (9) ="9"+GS+ES+BS+E$+BS+ESt+G2$+" 
g" 

2128 C$(1G)="10"+STRINGS (3 ,CHR$32) +AS+ 
KS+STRINGS (3,CHR$32) +"16" 

2138 CS(11)="J"+GS+DS+DS+ES+DS+JIS+"5" 

2148 CS (12) ="Q"+G$+DS$+E$+D$S+ES+JS+"Q" 

2158 C$ (13) ="K"+GSt+E$+DS$+ES+DS+E$+G2$+ 
wipers 

2168 ENDPROC 

2178 : 

2186 DEF PROCtitle 

2196 COLOUR129: PRINTSTRINGS (56,CHR$32) 
; "PATIENCE" ;STRINGS (56,CHRS$32) 

22006 COLOUR] 28:COLOUR2: PRINTTAB(16,7)" 
left - J"TAB(15,9)"right - K";TAB(8,11) 
"pick up/drop - SPACE BAR" 

2218 COLOUR13@:COLOUR1 : PRINTTAB (6, 29)" 
Press the SPACE BAR to start" 

2220 *FX4 2 

223@ ENDPROC 

2240 : 

2258 DEF PROCshuffle 

2260 FORA=@T051 :Z (A) =A+13:NEXT:FORA=9T 
012:A$ (A) =STRS (A* 13-105) : NEXT 

2278 FORA=@TO51 :B=RND (51) :C=Z(B) :Z(B)= 
Z(A) :Z(A)=C:NEXT 

2286 REPEATUNTILGET=32:C=51:A=RND (-RND) 

2298 ENDPROC 


2318 DEF PROCdeal 
2326 VDU19,2,2,9,9,9 
2330 VDU23,254,0,24,24, 153,219,126, 60, 


2348 COLOUR] 39:CLS 

2350 FOR B=0 TO 6 

2360 AS(B)="+"+STRS (Z(C) ) +AS (B) 
2376 PROCcard (B*5+2,B+2,Z(C) ) 
2388 C=C-1 

2396 IF B=6 NEXT:GOTO 2456 
240G FOR A=B+1 TO 6 

2418 PROCcard (A*5+2,B+2,@) 
2428 AS$(A) =STRS (-Z(C) ) +A$ (A) 
2438 C=C-1 

2446 NEXT A,B 

2450 K=24:L=24 

2468 PROCcard(1,25,@) 
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2508 ON ERROR OFF:MODE 1:*FX4 

2518 ON ERROR GOTO 2599 

2520 IF ERR=17 GOTO 2550 

2538 REPORT: PRINT" at line ";ERL 

2548 END 

2558 COLOUR1 29: PRINTSTRINGS (56,CHRS32) 
; "PATIENCE" ;STRINGS (56,CHRS$32) 

2568 COLOUR] 28:COLOUR2: PRINTTAB(19,7)" 
Another Game ?"; 

2578 REPEAT: G$=GETS$ 

2589 UNTIL GS="N" OR GS="Y" 

2599 IF GS="Y" THEN CLEAR:RUN ELSE MOD 


E 6:END 
2608 : 
2618 DEF PROCget 
2620 AS=GETS 
2630 PRINTTAB (1*5+4+36* (I>6)-(I>8) ,-23 
2478 COLOUR136 *(I>6))" " 
2486 ENDPROC 2640 H=H+(AS="J")-(AS="K") 
2490 : 2658 ENDPROC ® 
NEWS NEWS NEWS NEWS 
ACORN BITS 


Acorn quietly unveiled a whole host 
of goodies for the Electron at the 
recent Compec show at Olympia. A 
prototype of the Electron ‘Tube' 
interface was on display running a 280 
second processor. The tube interface 
allows the Electron to be connected to 
any of the three second processors that 
are available for the BBC micro - 2Z8@, 
6502, and 32016 - giving more memory 
for program storage, faster processing, 
and generally more power to your elbow. 
Acorn promises that the Tube interface 
will be available soon, but there is no 
price on it as yet. 


PLUS-3 

The long awaited Plus-3 interface 
was also there for the playing with at 
Compec. The Plus-3 offers Electron 
owners a Single 360K, three anda half 
inch disc drive complete with an 
‘advanced' disc filing sytem (ADFS). 
The whole package costs £299. 


THE SOFT STUFF 

On the software side, too, Acorn had 
a couple of tricks up its corporate 
sleeve at Compec. Acornsoft launched 
its own Logo. The Acornsoft version is, 
we are told, the definitive version. It 
comes complete with a _ utilities 
cassette and three manuals, all for the 


sum of £59. The BBC micro ISO Pascal 
officially received its certificate of 
worthiness from the British Standards 
Institution and a version for the 
Electron was on display. This came in 
the form of two catridges for the 
Plus-1. Acorn says that ISO Pascal will 
be available for the Electron very 


shortly. 
VIDEO 

A little off the beaten track, Acorn 
has launched yet another subsidiary 
company to 'develop the interactive 


video market'. Acorn Video has already 
produced its first product: the Acorn 
Interactive System. AIS comprises a BBC 
micro, a Phillips video disc player and 
connecting electronics. This system 
allows the storage and replay of over 
196,088 video pictures and computer 
displays in an order determined by the 
interactive program running on the 
Beeb. Systems start at about £3000. 


MORE AND MORE 

Somewhat amazingly, Acorn now claim 
to have sold a grand total of 170,900 
Electrons and to be confident of 
selling another 280,000 over the 
Christmas period. Over £2 million is 
being shelled out in TV advertising to 
try to realise these hopes. @ 
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by ‘Mitch’ 
If you are tired of all those super fast, mega-death, action games, 
and hanker after quieter, more imaginative challenges to your 


intellect, then the world of Adventure games may be just what you 
are seeking. Our own Dungeon Master, 'Mitch', sets the scene in his 


own inimitable way. 


Did you know that there is an old 
oak door inside the Electron? Should 
you ever open it and enter you might 
find your life will never be the same 
again. Leave your Tee-shirt or pin- 
striped suit behind. In here, worn 
leather armour or the cloak of a wizard 
will be more appropriate. If you've 
never peeped through before, stay close 
and I'll show you some of the wonders 
that lie so close by. 


Not so long ago two programmers 
named Crowthers and Woods had a 
brilliant idea. What if they wrote a 
program which could describe a fabulous 
world of Demons and Magic and then 
allow the player to explore it by 
giving simple commands in English. By 
typing instructions such as _ 'ENTER 
BUILDING' or ‘OPEN DOOR' the player 
would be able to tell the computer what 
he wished to do and where he wished to 
go. In reply the computer could then 
describe where the player now stood and 
what he could see around him. In this 
way you could decide whether you should 
‘GO NORTH', towards the dark ruined 
castle, or 'GO EAST' down the woodland 
path into the entrance of the evil 
smelling cave. Whichever way you 
choose, you can be sure there will be 
excitement, danger and the chance of 
matching your wits against all the 
perils of Adventureland. 


As the original adventure games were 
written on large main-frame computers 
which had no graphic facilities, but 
unlimited room for text, this tradition 
has persisted into the home micro. For 
this reason mode 6 is the favoured 
adventure mode on the Electron, as this 
gives maximum storage for text but no 


graphics. Not that this is necessarily 
a bad thing as text only adventures are 
by and large the best. Pretty picture 
books are no substitute for a well 
written adventure story. 


There are two main groups of 
computer fantasy games - '‘Adventures' 
and "Dungeon & Dragons'. The former is 
a computer controlled exploration 
through worlds of imagination, be they 
in the mists of a magical forest or in 
the cold, steel corridors of a long 
abandoned space-ship. In these worlds, 
the player has the time to map and 
puzzle his way through the various 
dangers and perils which are all around 
him. Dungeon & Dragon games generally 
involve actual combat between the 
player and a host of  computer- 
controlled monsters. These contests are 
a mixture of strategy and quick 
reactions which can cause untold 
damage to man and keyboard! 


As a relative newcomer, the Electron 
does not as yet have a large selection 
of adventure software available to it. 
Many games are reduced versions of 
games written for its larger brother, 
the Beeb. However, the list is growing 
and already there are some of note. 


"SADIM CASTLE" - MP Software, 165 
Spital Rd, Bromborough, Merseyside. 
Price £7.50. 


This adventure (reviewed in ELBUG 
Vol.2 No.2) takes place in the haunted 
Sadim Castle in which the former lord 
murdered his wife. Ghosts, vampires and 
other nasties ooze out of the stonework 
to prevent you finding the remains of 
Lady Leonora and laying her to rest. 
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“WHEEL OF FORTUNE" - Epic Software, 108 
Gladstone St, Kibworth Beauchamp, 
Leicester. Price £9.95. 


This game is one of the current top 
sellers for the Beeb, and a text only 
version is available for the Electron. 
The game incorporates all the classic 
ideas from the past into one game. The 
program accepts instructions in either 
the standard two word format (e.g. 'GET 
BUCKET') or longer involved commands 
such as, 'ENTER HOUSE THEN PICK UP 
EVERYTHING AND GO EAST’. In addition, 
the game features wandering characters 
who will answer questions and assist 
you in your quest, should you remember 
to treat them kindly. The story line 
involves the recovery of the stolen 
‘Wheel of Fortune’ which has magical 
powers. To recover it, you must explore 
a land of caves and magic, and overcome 
the trolls and dragons which guard the 
many other treasures, which some 
careless programmer seems to have 
dropped everywhere. A note of caution, 
in this world things tend to disappear 
if left lying about, so put everything 
in a safe place before wandering off. 


Running home each evening to wield a 
singing sword in the depths of your 
latest dungeon, can be a great way to 
get rid of inhibitions but never 
forget, the pen is mightier than the 
sword. Writing adventure games can be 
more fun than playing them! Basic is 
too slow for the writing of really good 
arcade games, but it is perfectly 
adequate for adventures. Books and 
magazine articles abound explaining all 
the necessary techniques to get you 
started. A word of warning at this 
point. Before adopting any method, do 
ensure that it uses procedures and is 
not a tangled web of GOTO's which the 
author created long ago on a 2X81 and 
now, with a minimum of changes, is 
trying to pass off for the Electron. 


One book I can recommend is "How To 
Write Adventure Games - For the BBC 
Micro and Electron" by Peter Killworth 
(Penguin £5.95). 


This book is written by tne author 
of the main Acornsoft adventures. The 
techniques are clearly explained and 
beautifully structured. D & D plus 
standard adventure games are explained 


and = =many examples are given. 
Considering the price of most computer 
related items, this book is a steal and 
should be required reading for all 
Acorn adventure writers. 


Whilst the inclusion of graphics in 
Electron adventures is awkward it is 
possible, as is shown by BUG 
BYTES' “TWIN KINGDOM VALLEY". As a 
novice wizard creating your own world, 
it's probably best to avoid this option 
as it will eat up too much store. Sound 
however is a different matter. 
Including sound effects can spice up 
any game, so don't forget, while it's 
easier for you to print "BANG", it's a 
lot more fun for the player to hear it! 
Scour the computer mags for sound 
effects, and store them in your spell 
book for the day you need the sound of 
a rusty door or the roar of a dragon. 


The most important part of the 
adventure is the text. A small game 
with ten carefully laid out, and well 
described rooms, is worth a hundred 
boring rooms. Remember that you are 
trying to create aworld that will 
intrigue, amaze and capture the imagi- 
nation, not an electronic crossword! 
Humour is an underated aspect which can 
turn a simple game, into a winner. 


The world you create can be anywhere 
in time and space, but it's easier to 
handle if you keep it in an enclosed 
area (e.g. a cave or castle). It's not 
logical to tell a player in the middle 
of a desert that he can only go north. 
It is also easier, (and more fun) to 
include magic or supernatural 
happenings, as this will enable you to 
have more unusual problems and 
solutions. Science fiction is alsoa 
good source of inspiration - matter 
transmitters, time-machines and alien 
monsters. In your world, that innocent 
public telephone box could turn into a 
Tardis at the drop of a penny! 


Well, I must be off. I've heard of a 
princess that requires saving , amd I 
know the nearby villagers are terrified 
of the strange screams that are coming 
from the local abbey. Why don't you pop 
an adventure cassette into the slot, 
grab a stout wooden staff, and go have 
a peep round that door. 
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FILE HANDLING (Part 2) 


by Geoff Bains 


Geoff Bains continues his tour around the file handling fagilities 


of the Electron. 


In part one we created a short file 
on cassette containing the names of 
eight home computers on the market. Now 
we want to use that data file. We 
created the file using the basic 
sequence 


OPENOUT 
PRINT # 
CLOSE # 


We opened a ‘'‘channel' for output 
with OPENOUT, output data to the file 
using PRINT# and then closed the file 
again when we had = finished. The 
procedure to read data into the micro 
is very similar. 


OPENIN 
INPUT # 
CLOSE # 


The channel is now opened for input. 
Data is read in with the command 
INPUT#, and again the file must be 
closed at the end. Here is a simple 
program to read back the data stored 
last time. 


16 REM cassette file input demo 1 
2@ CAROL=OPENIN "MICROS" 

34 FOR I%=1 TO 8 

40 INPUT #CAROL, NS 

58 PRINT NS 

60 NEXT I$ 

76 CLOSE #CAROL 


We are still using the secretary 
analogy for the different file 


‘channels' that we introduced last 
time. Note the CLOSE# statement at the 
end. You must remember to close files 
when you've finished with them. 


This program will work okay, and all 
the micros’ names that you stored last 
time will be displayed on the screen. 
However, if you went back to last 
month's program that created the file 
in the first place, and added another 
computer to the list, to create a 
longer file, then this input program 
would have to be altered as well, to 
account for the longer list. This is 
because it uses a simple FOR-NEXT loop 
to read in the data. One solution would 
be to make the upper limit in the 
FOR-NEXT loop higher than the length of 
any list you would want to use. However 
this would cause an error when the 
program is run and your Electron tries 
to find data that isn't there. 


A much more useful system would be 
one that would read in all of the data 
and stop when it gets to the end of the 
list. For this we need some method of 
detecting the end of a file. 
Fortunately there is just such a method 
provided in BBC Basic. We use the 
keyword EOF#. 


EOF# stands for 'End Of File'. This 
is a function that returns a 'boolean' 
value (true or false, -1] or @). If the 
end of the file has been reached then 
EOF# returns a value of true. Of course 
you must also specify the channel 
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number of the file you are 
investigating. Although you will only 
be able to open a single channel with a 
cassette system, Basic is written to 
cope with disc systems as well, so you 
have to refer to Carol again. 


1@ REM cassette file input demo 2 
28 CAROL=OPENIN "MICROS" 

38 REPEAT 

40 INPUT #CAROL, NS 

50 PRINT NS 

6@ UNTIL EOF #CAROL 

7@ CLOSE #CAROL 


Now we are using a REPEAT-UNTIL loop 
to run through the list. This loop will 
continue to read in the names and 
display them on the screen until the 
end of your file is detected in line 
66. Now your file containing the list 
of names can be any length you like, 
from one to hundreds. This program 
will cope with it unchanged. 


Of course these programs that we 
have looked at so far are not really 
all that much use. All you can do with 
them is tediously store a load of names 
and then read them back and print them 
on the screen. Commercial uses of files 
- databases - have a lot more to them. 
We can make a small alteration to the 
last program to go towards this. We 
will change it to not just print out 
all the data willy nilly, but to look 
for a particular name: 


1@ REM cassette file input demo 3 

28 MODE 6 

30 INPUT TAB(10,1@6)"Name of micro ", 
NAMES 

48 CAROL=OPENIN "MICROS" 

5@ REPEAT 

6@ INPUT #CAROL, NS 

76 IF NS=NAMES THEN PRINT NS;" 
FOUND" 

8@ UNTIL EOF #CAROL 

98 CLOSE #CAROL 


This program is pretty much the same 
as the last, only now a string is input 
from the keyboard at the start and each 
time round the loop (each time a name 
is read in from the list file) a 
comparison is made between the name 
read in and the name previously 
entered. Only if the two match is 
anything displayed on the screen. 
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Of course this is still not a very 
useful system. All the program will 
tell you is if the name you have typed 
in is found in the list. What we want 
is for the program to tell you 
something you didn't know (or couldn't 
remember) about the computer you have 
named. For this we need to move onto 
files containing more than one field in 
each record. 


The next program extends the idea of 
a database on home computers a little 
further. This program will set up a 
file containing facts and figures about 
any computers that you care to enter. 
Although the program, as it stands, is 
concerned only with home computers and 
only with certain aspects of them, it 
could easily be altered to deal with 
any subject. 


16 REM simple 'database' creator 
20 MODE 6 
38 CH=OPENOUT "MICROS" 
49 REPEAT 
58 CLS 
66 PRINT TAB(3,5)"Name of micro ";:I 
NPUT name$ 
76 IF name$<>"*" THEN PROCinput 
8@ UNTIL nameS="*" 
96 CLOSE #CH 
169 END 
110: 
128 DEF PROCinput 
138 PRINT TAB(3,7) "Memory capacity of 
"sname$;" (K) ";: INPUT memory’ 
148 PRINT TAB(3,9) "Display resolution 
of "s;name$;TAB(20,19)" X : ";: INPUT X% 
15@ PRINT TAB(2G,11)" Y : ";: INPUT Y% 
16@ PRINT TAB(3,13)"Number of colours 
"3: INPUT colour$ 
178 CLS 
186 PRINT TAB(2, 5) ;nameS 
198 PRINT memory; "K" 
206 PRINT X%;" X ";Y%;" graphics in " 
;colour%;" colours." 
218 PRINT TAB(2,1@)"ARE THESE ALL COR 
RECT?" 
228 REPEAT 
238 AS=INSTR("YyNn",GETS) 
240 UNTIL A% 
256 IF A%$<3 THEN PRINT #CH,name$,memo 
ry%,X%,Y%,colour$ 
268 ENDPROC 


This program will create a file 
containing facts on home computers. It 
is a simple program but serves its 
purpose quite well. When you run the 
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program you are asked for each of a 
series of facts about a computer - 
name, memory size, graphics resolution, 
and number of colours. Then you are 
given a chance (lines 21@ to 248) to 
change your mind about this data before 
it is stored. If you enter '*' as the 
computer name then the program will 
stop and close the file. 


You will find that when you run this 
program, after entering the data for 
one micro, the cassette recorder 
doesn't spring into life and store the 
record as you might expect. This is due 
to the way in which all cassette data 
is handled by the Electron. 


You will have noticed, when loading 
and saving Basic programs, that data is 
recorded onto cassette in ‘blocks’. 
When data is saved to a cassette file, 
it is also split into blocks, each 256 
bytes long. Each record of data 
corresponding to the information on one 
home computer does not make up a_ whole 
block. It is only a few bytes long. 


What your Electron does then, when 
it comes across a PRINT# statement is 
not to semd it direct to the cassette 
recorder but to store it in a _ section 
of memory called a buffer. Only when 
this buffer (256 bytes long) is full is 
the whole lot sent for recording onto 
tape. When you complete each record of 
data it is sent to this buffer. Only 
when you have entered enough, or when 
you finally close the file, is a whole 
block recorded onto the cassette. 


Now we have created a simple 
database, we need a program to 
interrogate it, to extract the data 
that we want from it. The program to do 
this is really an extension of the 
program that searched for a particular 
name in our computer name list. 


16 REM simple ‘database’ interrogator 

20 DIM N%(5) 

30 MODE 6 

49 PRINT TAB(1,2) "SEARCH FOR:" 

5@ PRINT TAB(14,4)"1. Name" 

6@ PRINT TAB(14,5)"2. Memory" 

7@ PRINT TAB(14,6)"3. X Resolution" 

8@ PRINT TAB(14,7)"4. Y Resolution" 

9@ PRINT TAB(14,8)"5. No. Colours" 

160 PRINT TAB(1,12) "Input choice" 

110 REPEAT: PRINT TAB(13,12)SPC 5: INPU 
T TAB(13,12) ,C% 
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128 UNTIL C%<6 AND C%>d 

138 IF C$=1 THEN INPUT TAB(1,14) "name 
"ONS 

149 IF C$>1 THEN INPUT TAB(1,14) "Limi 
ts: upper",U$: INPUT TAB(9,15)"lower",L% 

158 CLS 

166 CH=OPENIN “MICROS" 

170 PRINT'' 

188 PRINT CHRS$14 

198 REPEAT 

200 INPUT #CH,nameS,N%(2) ,N&(3) ,NS(4) 
»N% (5) 

219 IF C%=1 THEN IF nameS=N$ THEN PRO 
Cprint 

220 IF C%>1 THEN IF N%(C%)<U% AND N%( 
C%)>L$ THEN PROCprint 

238 UNTIL EOF #CH 

2486 CLOSE #CH 

256 PRINT CHRS$15 

268 END 

278 : 

280 DEF PROCprint 

290 PRINT name$ 

300 PRINT N%(2);"K" 

316 PRINT N%(3);" x "7N8(4);" graphic 
s in ";N%(5);" colours." 

320 PRINT '' 

338 ENDPROC 


This program allows you to choose 
any one of a menu of search criteria. 
If one of the numerical search criteria 
(options 2 to 5) is chosen then upper 
and lower limits for these are also 
entered. If the first option is chosen 
then a computer name is input for the 
search. The file is read using a 
REPEAT-UNTIL EOF# loop much as before. 
If, in any record, the name matches up 
with the name input or the right piece 
of numerical data matches up then the 
whole record is printed out along with 
some suitable padding to make it 
readable (PROCprint). The numeric data 
is read into an array (N%$) so that in 
line 228 the right data can be chosen 
according to the menu choice, C%. 


Using this program you can _ search 
large files created with the last 
program. The file can be searched for 
computers with specifications that fall 
between particular limits, or the 
complete details on one computer can be 
displayed. As such, this program forms 
a simple but effective reference file. 
At the moment we have no way in which 
to add to, delete, or to alter records 
in our data file. We will look at ways 
of doing this next time. @ 
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CATERPILLAR 


Dave Robinson 


Caterpillar is a ome player, fast 
moving action game in which you _ take 
the part of a caterpillar, trying to 
eat all of the bugs on the screen 
before they mature and become 
malicious. 


Your main aim is to complete three 
screens of action without being eaten. 
Each bug starts off as a small dot, and 
matures to a large bug. If this is not 
eaten quickly the bug transforms into a 
beastie and will start to chase and eat 
you. 


The bugs evolve through’ three 
different stages; the small bug is 
worth 5@ points, the medium one is 
worth 158 points and the large 'space 
ship lookalike' bug is worth 206 
points. As you eat more bugs, the body 
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length of 
longer. 


the caterpillar becomes 


You lose points for every segment 
that is eaten by the beasties, but if 
you clear each sheet without 
encountering any beasties you are given 
a bonus score. 


Full instructions are given in the 
program, and the keys that you use are 
'Z' and 'X' for left and right, and '*' 
and '?' for up and down. 


Once you become familiar with the 
basic pattern of play, it is possible 
to develop various strategies that both 
prolong the game and enhance your 
score. Happy eating! 


1@ REM PROGRAM CATERPILLAR 

28 REM Version E@.6 

3@ REM Author Dave Robinson 

49 REM ELBUG JAN/FEB 1985 

5@ REM Program Subject to copyright 


168 ON ERROR GOTO 400 

116 DIM X%$(21) ,Y$(21) 

128 DIM head$ (4) ,beast$ (3) 
138 DIM egg$ (3) ,egg% (28) 
148 DIM change$ (29) 

158 DIM BX%(2@) ,BY% (28) 
16@ PROCinitial 

178 MODES 

188 PROCinstruct 

198 REPEAT 

208 screen3=1 

210 REPEAT 

228 PROCsetup 

239 PROCdrawscreen 

24@ REPEAT 

258 PROCworm 

IF movet>4 PROCchange:moves=@ 
IF aim$=target%$ won$=TRUE 
PROCbeast 
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a 
1158 beast$ (1) =CHR$17+CHRS$1+CHRS$232 
1168 beast$ (2) =CHR$17+CHRS$1+CHR$233 


ERAT THE EGGS BEFORE 1178 beast$ (3) =CHR$17+CHRS$2+CHRS$233 
THEY EVOLVE INTO .. 1188 FORI%=1 TO 3 
HUNGRY BEASTIES 1198 egg$ (1%) =CHRS$1 7+CHRS3+CHRS (228+13 
- ) 
See mere ee 1200 NEXT 
Points 1216 hiscore%=9:score$=8 
= 1228 ENDPROC 
Points 
1230 : 
1240 DEF PROCsetup 
2 .err. - uP 1258 BNS=6 
x RIGHT. > poWnN 1266 lost%=FALSE:wont=FALSE 
1276 FOR I%=8 TO 5 
SPACE TO START 1288 X%(1%)=I1$+1:Y3 (13) =19 
1290 NEXT 
1308 OX$=5:0Y$=10:head3=4: tail%=G:aimé 
298 beast$=beast3MOD (BN3$+1) +1 =-]:B%=1 
380 UNTIL won% OR lost% 1319 FOR I%=@ TO 20 
319 IF BN%=@ PROCbonus 1328 BX% (I$) =0:BY% (1%) =9 
328 screen$=screen$t+1 133@ NEXT 
330 UNTIL lost% OR screen3=4 1346 target$=4*screen3+4 :WxXdir$=+1 :WYd 
348 PROCpause (108) ir%$=@:H%=1 :move3=@:beast3=0 
358 PROCending 1358 ENDPROC 
36% UNTIL NOT again’ 1366 : 
374 MODE6 1376 DEF PROCdrawscreen 
388 END 1388 CLS: VDU23,1,0;9;9;G; 
398 : 1398 VDU19,2,6,8,8,8:VDUI9,1,3,9,0,8 
400 ON ERROR OFF 1496 PRINTTAB(9,1)"SCORE:" 
41@ MODE6 1419 PRINTTAB(9,3)"HIGH:" 
426 IF ERR<>17 THEN REPORT: PRINT" at 1420 PRINTTAB(1,5) ;screens 
line ";ERL 1438 GCOLG,1:MOVE32,48 
430 END 1449 DRAW1248,48:DRAW1 248,816 
449: 1458 DRAW32,816:DRAW32,48 
1600 DEF PROCinitial 1468 FOR I%=1 TO 4 
1018 VDU23,224,&3C,&66,&C3,&99,&99 ,&C3 1476 PRINTTAB(I$,10) body$ 
7&66 ,&3C 1488 NEXT 
1028 VDU23,225,&87,&1F,&78,&F8,&F8,&78 1499 PRINTTAB(5,1@) head$ (1) 
7&1F,&07 1508 FOR I%=@ TO target% 
1938 VDU23,226,&EG,&F8,&1E,&1F,&1F,&1E 1519 REPEAT 
7&8 ,&EO 1528 J$=RND(16)+1:K$=RND(22)+7 
1048 VDU23,227,&18,&3C,&3C,&7E,&7E,&C3 1538 UNTIL FNpoint (J%,K%) =8 
7&C3 ,&C3 1548 PRINTTAB(J%,K%) egg$ (1) 
1056 VDU23,228,&C3,&C3,&C3,&7E,&7E,&3C 1558 eggs (I$) =J$*&1BB+KS 
7&3C,&3C 1568 change’ (1%) =1 
1060 VDU23,229,&9,&0,&18,&3C,&3C,&18,& 1578 NEXT 
6, &8 1588 FOR I%=target$+1 TO 20 
1878 VDU23,230,&0,&0,&3C,&18,&18,&3C,& 1596 egg% (1%) =8:change% (1%) =4 
G,&G 1688 NEXT 
1088 VDU23,231,&0,&9,&7E,&DB,&DB,&7E,& 1618 COLOUR2: PRINTTAB (15,1) ;scores 
0, &@ 1620 PRINTTAB(14,3) ;hiscore’ 
1098 VDU23,232,&C3,&42,&7E,&DB,&DB,&7E 1638 ENDPROC 
7&42,&C3 1646 : 
1168 VDU23,233,&66,&42,&7E,&DB, &DB,&7E 1656 DEF PROCworm 
7&42,&66 1668 move$=move$+1 :X3=OX$: YS=OYS 
1118 FOR I%=1 TO 4 167@ IF INKEY(-67) WXdir$=+1:WYdir%=0: 
1126 head$ (1%) =CHRS17+CHRS$2+CHRS (224+1 H3=1 
$) 1686 IF INKEY(-98) WXdir$=-1:WYdir%=0: 
113@ NEXT H3=2 
1148 bodyS=CHR$17+CHR$2+CHRS224 1696 IF INKEY(-105)Wydir$=+1 :WxXdir%=0: 
H3=3 
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1700 IF INKEY(-73) WYdir$=-1:WxXdir3=0: 
H3=4 

1718 X=X$+WXdird: Y3=Y3+WYdirs 

1728 C=FNpoint (X%,Y%) 

1738 IF C3=3 PROCswallow:ENDPROC 

1748 IF C8<>@ ENDPROC 

175@ PRINTTAB(X%,Y%) head$ (H%) 

1768 PRINTTAB (X% (head$) , Y% (head&) ) body 


1776 PRINTTAB (X%(tail%) , Y$(tail%) )CHRS 
32 

1788 OX%=X%:OYS=Y% 

1798 head$=(head%+1)MOD21 

1880 tail%=(tail%+1)MOD21 

181@ X%(head%) =X3: Y$ (head’) =Y% 

1828 SOUND1,-15, (X%+1@) *Y3,1 

1838 ENDPROC 

1846 : 

1858 DEF PROCbeast 

1860 IF BN$=@ PROCpause (3) 

1870 IF BX%3(beast%)=@8 ENDPROC 

18808 OBX%=BXx% (beast%) : OBY3=BY% (beast) 
1890 Xdir%=SGN (X% (tail%) -OBX%) 

1986 Ydir%=SGN (Y% (tail%)-OBY$) 

1910 IF OBX%+Xdir%=X%(tail%) AND OBY%+ 
Ydir%=Y% (tail%) PROCeat : ENDPROC 

1928 IF FNpoint (OBX%+Xdir%,OBY%+Ydir3) 
<>@ ENDPROC 

1938 BX% (beast%) =OBX3+Xdir$%:BY% (beast% 
) =OBY$+Ydir$ 

1948 PRINTTAB (BX% (beast$) , BY% (beast) ) 
beast$ (BS) 

1958 PRINTTAB (OBX%, OBY%) CHR$32 

1968 BS=(BSMOD2) +1 

1978 ENDPROC 

1986 : 

1996 DEF PROCchange 

2008 Z3=RND(21)-1 

2019 IF change%(Z%)=4 OR egg3(Z3)=6 EN 
DPROC 

2620 IF change%(Z%)=3 PROCnewbeast : END 
PROC 

2638 PRINTTAB (egg% (2%) DIV&19G,egg% (ZS) 
MOD&18@) eggS (change% (Z%) +1) 

2048 IF change%(Z%)<3 change% (Z%) =chan 
ge%(Z%) +1 

2858 ENDPROC 

2068 : 

2078 DEF PROCnewbeast 

2080 PRINTTAB(egg$ (Z$) DIVS1 9G ,egg% (Z3) 
MOD& 188) beast$ (1) 

2696 changes (Z3) =4 

2106 target%=target3-1:BN3=BN$+1 

2118 BX% (BN%) =egg% (Z3) DIV&1 0G :BY% (BNS) 
=eqg$ (2%) MOD&1 BG 

2126 ENDPROC 

2130 : 

2146 DEF PROCbonus 

2158 COLOUR] :bonus%=screen3* 5380 

2166 PRINTLAB (1,2) "*BONUS*" 


SCORE : 4502 
HIGH: @ 


2170 PRINTTAB (3,4) ;bonus% 

2189 PROCpause (50) 

2198 scoret=score%tbonus% 

2288 COLOUR2: PRINTTAB(15,1) ;scores 

2210 PROCpause (109) 

2220 ENDPROC 

2230 : 

2248 DEF PROCending 

2250 *FX15,1 

2268 againt=TRUE:CLS:COLOURI 

2278 IF lost% PRINTTAB(6,6) "OH DEAR!", 
TAB(6,8)"YOU LOST" 

2286 IF wont PRINTTAB(5,8) "WELL DONE!" 
2298 PRINTTAB(3,11)STRINGS(14,"-") 
2308 COLOUR2 

2318 PRINTTAB (5,15) "SCORE:"s;score$ 
2320 IF score%>hiscore$ THEN hiscore%= 
scores 

2338 PRINTTAB(5,18) "HIGH: ";hiscores 
2348 COLOUR3 

2350 PRINTTAB(4,24)"AGAIN (Y/N) ?" 
2368 REPEAT: UNTIL INKEY-69 OR INKEY-86 
2376 IF GETS="N"again$=FALSE 

2388 score%=G 

2398 ENDPROC 

2408 : 

2418 DEF PROCswallow 

2420 IF heads<tail$ topt=head$+21 ELSE 
top3=heads 

2430 PRINTTAB (X%,Y%) head$ (H3) 

2448 S%=-1 

2450 REPEAT 

2468 S%=S$+1 

2476 UNTIL egg%(S$%) DIV&1GG=X% AND egg% 
(S%) MOD&180=Y% 

2486 egg (S$) =8 

2496 PRINTTAB (X% (head%) , Y% (head%) ) body 
$ 

2509 FOR I%=top% TO tail%$ STEP-1 

2510 PRINTTAB (X% (I$MOD21) , Y$ (I3MOD21) ) 
egg$ (1) 

2528 SOUND1,-15,1*1I$*3,1 

2538 PROCpause (2) 
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SE a PT EE SE I 
2828 scores=scores-5d 

2838 COLOUR2: PRINTTAB(15,1) ;score$ 
2848 ENDPROC 

2859 : 

2868 DEFFNpoint(S%,T%) 

2878 =POINT (S%*64+32, 1G08-TS* 32) 
2880 : 

2898 DEF PROCpause (time$) 

2908 TIME=9:REPEAT: UNTIL TIME=time% 
2918 ENDPROC 

2920 : 

2930 DEF PROCinstruct 

2948 VDU19,1,6,0,0,08 

2958 VDU23,1,9;0;9;0; 

2968 COLOUR1 

297@ PRINTTAB (4,2) "CATERPILLAR" 
2988 PRINTTAB(4,3)STRINGS(11,"—") 


2548 PRINTTAB (X%(I%MOD21) , Y$ (I$MOD21) ) 2998 COLOUR3 

body$ 3008 PRINT'"EAT THE EGGS BEFORE" 

2558 NEXT 3010 PRINT'"THEY EVOLVE INTO .." 

2568 OX%=X$:OY3=Y3 3828 COLOUR2 

2578 head%=(head%+1)MOD21 3038 PRINT'TAB(1)"HUNGRY BEASTIES! ";C 
2586 X%(head$) =OX%: Y$ (heads) =OYS HRS232 

2590 aim$=aim3+1 3848 COLOUR3 

2600 score$=score$+change$ (S$) *5G 3050 PRINTTAB (3,12) ;CHRS229;SPC3;"50 p 
2618 COLOUR2: PRINTTAB (15,1) ;score% oints" 

2628 PRINTTAB(15,1) ;score% 3068 PRINTTAB(3,15) ;CHRS230;SPC2"150 p 
2630 IF aimt=target% wont=TRUE oints" 

2648 ENDPROC 3878 PRINTTAB (3,18) ;CHRS231;SPC2"206 p 
2656 : oints" 

2668 DEF PROCeat 3888 COLOUR]: PRINT' '"CONTROLS:" 

2670 PRINTTAB (OBX$+Xdir%, OBY$+Ydir$) be 3898 COLOUR3 

asts$ (3) 3160 PRINT''TAB(2)"Z LEFT. * Up" 
2680 tail%=(tail$%+1)MOD21 3118 PRINT'TAB(2)"X RIGHT. ? DOWN" 
2698 aimt=aims-1 3128 COLOUR2 

2706 IF aimt=-4 THEN lost%=TRUE 3130 PRINTTAB(3,30)"SPACE TO START" 
27190 PRINTTAB (OBX%, OBY$) CHR$32 3146 REPEAT 

2728 SOUND1,-15,19,2 3156 PRINTTAB(17,9)CHRS$232,TAB(16,9)CH 
2730 PROCpause (18) R$32 

2748 SOUND1,-15,609,1 316@ IF INKEY(-99) ENDPROC 

2750 PRINTTAB (OBX$, OBY$) egg$ (1) 3170 PROCpause (38) 

2768 S3=-1 3188 PRINTTAB(16,9)CHR$233,TAB(17,9)CH 
2770 REPEAT: S$=S$+1:UNTIL egg$ (S%) = RS$32 

2788 egg% (S%) =OBX3*&1 GG+OBYS 3196 IF INKEY(-99) ENDPROC 

2798 change (S$) =1 3208 PROCpause (3G) 

2880 PRINTTAB (OBX$+Xdir$,OBY$+Ydir$) be 3218 UNTIL FALSE 

asts (B%) 3228 ENDPROC 

2810 BX% (beast%) =BX% (beast) +Xdir%:BY$ 

(beast$) =BY% (beast$) +¥dir$ ® 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


QUICK WAIT FOR KEY - D. Morgan 
When writing 'user friendly' programs, it is often necessary to wait for a key to 

be pressed in order to provide time for the user to read a piece of text. The most 

memory efficient way in which Basic can perform this is by means of the following: 
IF GET 

This uses much less memory than the more obvious A=GET. Brief, ain't it! 
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PO Box 590 

We will also pay £10 for the best Hint St Albans 

or Tip that we publish, and £5 to the Herts 

next best. Please send all editorial 

material to the editorial address 

Opposite. If you require a reply it is 

essential to quote your membership 

number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Assistant Editor: Geoff Bains. Production Editor: Phyllida Vanstone. 

Technical Assistant Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to, Sheridan Williams, and Adrian Calcraft for assistance with this 
issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1985. 
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New Elbug Binders 


We have produced an attractive 
hard-backed binder for the 
ELBUG magazine. These 
binders are green in colour 
with “ELBUG” in gold lettering 
on the spine and allow for the 
whole of one volume of the 
magazine to be stored as a 
single reference book. 


Each binder will accommodate 

10 ELBUG magazines, and is 

supplied with 12 wires to 

enable the index and the latest 

copy of the supplement to be PPL PPL LLEL PPL PPP LEP 

es wile ioe binder if Elbug Binders 

required. Indivi issues may 

be easily ad re a an d remove a NEW aia ae OFFER 
owing for the latest volume ow : 

to be filed as it arrives. If ordered before March 1st 


The price of the new ELBUG binder is £3.90 including VAT, 
please add 50p post and packing for delivery within the U.K. 
Overseas members please send the same amount, this will 
cover the extra postage but not VAT. 

Plese send to: 

BEEBUGSOFT, PO BOX 109, High Wycombe, Bucks, HP10 8HQ. 
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THE BEST OF ELBUG ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 28 programs in all in four different categories: 


Action Games =F 
Munch-Man Mars Lander Invasion Games 
Robot Attack Hedgehog rape es 


Thought games 
Higher/Lower Five-Dice . Life | 
Anagrams Return of the Diamond | 


Visual Displays 
Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 


Utilities 
Sound Wizard Bad Program Lister 
3-D Lettering Bad Program Rescue 
Double Height Text 


All 2@ programs are now available on cassette from our software address (in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & packing in 
either case. 


ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a cassette of the programs featured in 
the latest edition of ELBUG. The first program on each tape is a menu program, detailing the tape’s 
contents, and allowing the selection of individual programs. The tapes are produced to a high technical 
standard by the process used for the BEEBUGSOFT range of titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 Number 1 onwards and 
are all available from stock, priced £3.00 each inclusive of VAT. See below for ordering information. 


This months cassette includes: 


Volume 2 Number 3 
ar AG fast moving action game), fascinating 3D surfaces program, a greatly extended Mini 


Text Editor, a program to illustrate Making Tunes on the Electron, Patience (a very good 
implementation of this popular card game), a Trace Facility for help in pcr ier aac and all 
the example programs from this month's article on File Han: r 


MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine cassette, this gives the added 
advantage of receiving the cassette at around the same time as the magazine each month. Subscriptions 
may either be for a period of 1 year or6 months. (NOTE Magazine cassettes are produced 10 times each 
year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so when applying please write 
to the address below quoting your membership number and the issue from which you would like your 
subscription to start. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £3.00. 
P®& P: Please add 50p for the first and30v foreach subsequent cassette. 
Overseas orders: Please send the same ainount, this will include the extra post but not VAT. 


Magazine Cassette Subscription 
1 YEAR (10 issues) £33.00 Inclusive..... O'SEAS £39.00 No VAT payable 
6 MONTHS (5 issues) £17.00 Inclusive..... O'SEAS £280.00 No VAT payable 


Please be sure to specify that you require subscription to the ELBUG magazine cassette (as opposed to 


the BEEBUG cassette), and enclose your membership number with a cheque made payable to 
BEEBUGSOFT. 


Please send to.. 


ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe, HP10 8HQ 


Printed in England by Staples Printers St Albans Limited at The Priory Press 


